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Vorwort der Autoren 





Das Buch ‚„Spielprogramme für den APPLE Ile“ enthält neue Spiele sowie 
Verbesserungen bekannter Gesellschaftsspiele und Vorschläge bzw. Anregun- 
gen zum Programmieren weiterer Spiele. Es wurde speziell für diejenigen 
Leser geschrieben, die bereits ausreichend mit der Programmiersprache BASIC 
vertraut sind und bessere, abwechslungsreiche Programme schreiben möch- 
ten. Das Buch wendet sich an Eltern, Lehrer, Schüler und Studenten oder 
einfach an den Computer-Hobbyisten. 

Wir stellen sorgfältig konstruierte Programme zur Verfügung. Damit können 
Klänge oder Farbmuster erzeugt, Daten direkt nach Eingabe ausgewählt und 
bewertet oder bestimmte Tasten deaktiviert werden. Die Programme eignen 
sich als Zusätze für existierende Programme und als Grundbausteine für neue 
Programme. 

Wir haben Unterprogramme in eigenständige Spielprogramme eingebaut. So- 
wohl die Unterprogramme als auch die Spielprogramme können als Beispiele 
guten Programmierstils angesehen werden. Mit ihnen wollen wir unsere Über- 
zeugung von der Bedeutung benutzerfreundlicher Computerprogramme aus- 
drücken. Geben Sie die Programme so ein, wie sie in diesem Buch abgedruckt 
sind. Speichern Sie diese unter den Namen, die wir angegeben haben. Dies 
gibt uns die Möglichkeit bei der Konstruktion größerer Programme auf die 
vorhergehenden Arbeiten Bezug zu nehmen. Außerdem erspart es Ihnen die 
Zeit des wiederholten Eintippens. Lesen Sie die Kapitel der Reihe nach! 
Lassen Sie kein Kapitel aus, und Sie werden sehen, daß Sie dadurch Gewinn 
und Freude steigern. 

Zur Benutzung des Buches benötigen Sie einen APPLE II Computer mit 
APPLESOFT (FP) BASIC Programmiersprache. Einige unserer Programme 
sind sehr kurz und benötigen nicht mehr als 16K Speicherkapazität, doch die 
meisten Programme brauchen 32K. Zusätzlich benötigen Sie ein Disketten- 
laufwerk zum Speichern der Programme und Unterprogramme. Mit einem 
Kassettenrekorder ist das Speichern der Programme sehr viel komplizierter. 
Für die Verwendung eines Diskettenlaufwerks spielt es keine Rolle, ob das 
Betriebssystem DOS 3.2. oder 3.3. benutzt wird (DOS = Disk Operating 
System). 
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Einige Bemerkungen zu Computerspielen 


Heutzutage sind nur wenige Computerspiele wirklich neu. Die meisten sind 
zuerst für große Computersysteme geschrieben worden (vor 15 bis 20 Jahren 
die einzigen erhältlichen Computer). Diese frühen Spiele wurden an Fern- 
schreiber-Terminals gespielt und basierten deshalb auf der Verwendung von 
Texten. Wenn Sie heute Textzeilen aus dem Bildschirm verschwinden sehen, 
dann erinnern Sie sich an folgendes: Die Papierrollen des Fernschreibers 
hatten keine Begrenzung, wie dies beim Bildschirm der Fall ist. Die Program- 
mierer wußten, daß die Spieler jederzeit bei fehlenden Anweisungen die Rolle 
zurückdrehen konnten, um diese zu finden. 

Wir erwähnen dies aus zwei Gründen: 


Erstens ist es gut zu wissen, warum die Dinge sich so entwickelt haben, wie 
sie heute sind. Computerspiele haben eine geschichtliche Entwicklung, und — 
so oft wie möglich — werden wir auch die Ursprünge der vorgestellten Spiele 
aufzeigen. 

Zweitens haben viele heutige Spiele noch Nachteile, da sie lediglich Mikro- 
computer-Adaptionen der früheren, textorientierten Fernschreiberspiele 
sind. Wir denken z.B. an das Verschwinden von Textzeilen aus dem Bild- 
schirmbereich. Auch werden die Vorteile des Mikrocomputers oft nicht voll 
ausgenutzt. Im Verlauf dieses Buches werden wir einige Verfahren zum Ver- 
bessern bereits existierender Spiele durch die speziellen Eigenschaften des 
APPLE vorschlagen. 


Noch ein Wort an die Leser 


Die Computer-Programme von „Spiele für den APPLE-Computer‘‘ werden 
auf nicht kopiergeschützten Disketten geliefert. Es gibt keine mechanischen 
oder elektronischen Tricks, um das Kopieren zu verhindern. Die Programme 
sind jedoch urheberrechtlich geschützt. Wir fühlen uns moralisch verpflichtet, 
Software in einer Form anzubieten, die der Leser auch abändern kann. Der 
Leser kann zwei Dinge tun: die Funktion unserer Spiele erforschen, indem 
er einzelne Teile unserer Programme ausprobiert, und eigene Spiele ent- 
wickeln. Außerdem hat er ein Anrecht auf eine ausreichende Zahl von Sicher- 
heitskopien, so daß er nicht zu befürchten braucht, daß maschinelle Fehl- 


funktionen oder persönliche Fehler die einzige Kopie des Programms zer- 
stören. 


VI 


An dieser Stelle möchten wir die persönliche Bitte an den Leser richten, 
unsere Programme nicht zu kopieren, um sie unter Bekannten und Freunden 
zu vertreiben. Mit dem Verzicht auf einen Kopierschutz hoffen wir, den 
Software-Herstellern wie auch den Herausgebern zu zeigen, daß Programme 
auch ohne Kopierschutz mit finanziellem Gewinn verbreitet werden können. 


Wenn es keinen finanziellen Gewinn gibt, können die Hersteller die Computer- 
Software künftig nicht mehr zu vernünftigen Preisen anbieten. 

Nehmen Sie bitte Rücksicht auf unsere Bemühungen und machen Sie nur 
Kopien für Ihren eigenen Gebrauch! 


Howard Franklin 
Joanne Koltnow 
LeRoy Finkel 


Vorwort des Übersetzers 


Das vorliegende Buch enthält neben vielen Programmen, die das Erstellen 
von Computerspielen wesentlich erleichtern, eine Reihe von fertig ausge- 
arbeiteten Spielen. Als Vorlage für die Computerversionen dieser Spiele 
dienten den Autoren bekannte amerikanische Kinderspiele, die nicht immer 
im Deutschen eine Entsprechung besitzen. Deshalb wurde größtenteils der 
Originalname des Spiels beibehalten (z.B. MATCH, BLOCKOUT). Die Über- 
tragung der Programme ins Deutsche geschah lediglich durch Übersetzung 
der Dialogformen und der REM-Anweisungen. Der Ablauf der Programme 
blieb ungeändert. Trotzdem kann für vollständige Fehlerfreiheit aller Pro- 
grammlistings keine Gewährleistung übernommen werden. 


L. Schaaf 


Dezember 1983 
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Kapitel 1 
Melodien und Klangeffekte 





Dieses Kapitel führt in grundlegende Möglichkeiten zur Klangerzeugung des 
APPLE-Computers ein. Außerdem enthält es Unterprogramme zur Erzeu- 
gung von Klangeffekten, die Sie zu bereits existierenden Programmen hinzu- 
fügen können. Mit diesen Unterprogrammen als Grundlage können Sie neue 
Programme in allen gewünschten Variationen erstellen. 

Der Ablauf der Programme auf dem Bildschirm kann in diesem Buch nicht 
gezeigt werden. Es ist nicht möglich, den Ablauf eines Programms darzu- 
stellen, das Klänge produziert; es ist schon schwierig, einen Programmablauf 
zu demonstrieren, bei dem sich farbige Bilder verändern. Wir finden es je- 
doch angebracht, die von uns geschaffenen Wahlmöglichkeiten zu erläutern, 
mit denen ein Programm auf den Spieler eingeht. Deshalb enthalten die 
Kapitel Erörterungen über spezielle Dialoge zwischen Spieler und Programm. 
Der Apple-Computer erzeugt Töne durch das sehr schnelle Ein- und Aus- 
schalten eines elektrischen Schalters im Innern des Computers. Indem man 
eine lange Folge dieser winzigen Schaltvorgänge in einen Lautsprecher leitet, 
entsteht ein Ton. Ändert man die Anzahl der Schaltvorgänge pro Sekunde, 
so ändert sich auch der Ton. Alle verschiedenen Klänge, die der APPLE- 
Computer erzeugt, kommen von diesen Schaltvorgängen. Sie werden durch 
einen Lautsprecher wiedergegeben. Zum Beispiel erfordert ein Klang, dessen 
Tonhöhe etwa dem Kammerton a entspricht, 440 Schaltvorgänge in der 
Sekunde. 


Die BELL-Funktion 


Wenn Sie die Control-G Taste drücken, wird Ihr APPLE-Computer einen Ton 
(Beep) von sich geben, der manchmal auch als Bell bezeichnet wird. (Die 
CTRL-Taste bleibt gedrückt während man die G-Taste betätigt.) Wiederholen 
Sie dies einige Male und achten Sie auf den Ton. Der Control-G-Befehl be- 
wirkt diesen Ton durch die Benutzung eines im Computer gespeicherten 
Unterprogramms, das eine bestimmte Folge von Schaltvorgängen erzeugt. 


Haben Sie bemerkt, daß die G-Taste auch mit BELL bezeichnet ist? Die Be- 
zeichnung ist ein Überbleibsel aus jenen Tagen, als in Fernschreibgeräten 
noch solche Bells eingebaut waren und durch Eintippen von Control-G be- 
tätigt wurden. Heutzutage klingt “BELL‘‘ gewöhnlich nicht wie eine Klingel, 
doch die meisten Terminals besitzen irgendwelche akustischen Signale. 
Angenommen Sie wollen den Beep benutzen, um in einem Spiel eine richtige 
Antwort oder einen siegreichen Schritt anzuzeigen. Sie können Control-G als 
Teil des Programms in einen PRINT-Befehl mit aufnehmen. Control-Zeichen 
erscheinen jedoch nicht im Programmlisting; sie sind zwar in Ihren PRINT- 
Befehlen vorhanden, werden aber im Programmlisting vermißt. 


PRINT “DAS IST RICHTIG!!“ 
(nicht sichtbares Control-G) 


Das ist zwar nicht schlecht, doch es kann ärgerlich und verwirrend sein, 
wenn Sie Ihre Listings betrachten. Glücklicherweise gibt es eine Alternative. 
CHR$ (7) ist der ASCII-Code für Control-G, und diese Zeichen erscheinen im 
Programmlisting. Benutzen Sie CHR$ (7) in einem PRINT-Befehl wie folgt: 


PRINT “DAS IST RICHTIG!!“; CHR$ (7) 
PRINT CHR$ (7); “DAS“; CHR$ (7); “IST“,; CHR$ (7); “RICHTIG!!“; 
CHR$ (7) 


Sie stellen fest, daß das Eintippen von CHR$ (7) sehr schnell mühsam wer- 
den kann. Daneben kann man ja auch vergessen, welche Zahl zu benutzen ist. 
Wenn wir für CHR$ (7) eine Textvariable definieren, sind die PRINT-Befehle 
leichter einzugeben. Als Variable für Beep werden wir BL$ benutzen: 


10 BL$ = CHR$ (7) 
20 PRINT BL$; “DAS“; BL$; “IST“; BL$; “RICHTIG!!“; BL$ 


Pausen 


Beim Ausprobieren dieser Programmzeilen mit dem APPLE werden Sie fest- 
stellen, daß Wörter und Töne beinahe gleichzeitig erscheinen. Der PRINT- 
Befehl wird so schnell ausgeführt, daß nur schwer zu sagen ist, ob die Töne 
auf die Wörter folgen. Wenn Sie einen Ton mehrere Male spielen wollen, ver- 
schwimmen die Töne ineinander. (Der Befehl PRINT BL$; BL$; BL$ hört 
sich wie ein einziger Ton anstatt wie drei Töne an.) 

Mit dem SPEED-Kommando wird die Geschwindigkeit kontrolliert, in der 
durch einen PRINT-Befehl Zeichen auf dem Bildschirm ausgegeben werden. 
SPEED = 255 ist die schnellste, SPEED = O0 die langsamste Geschwindigkeit. 
Wenn keine Geschwindigkeit festgelegt ist, wird die vorgewählte Geschwin- 
digkeit (255) benutzt. Hier zeigen wir einen interessanten Weg, das SPEED- 
Kommando zur Kontrolle der Pausen zwischen den Tönen zu benutzen. 


10 REM ... TOENE PAUSE... 

11: 

12 REM FUEGE EINE PAUSE ZWISCHEN 2 TOENEN EIN UNTER BENUTZUNG VON ”SPEED’ 
13 3 

100 BL$ = CHR$ (7) 

110 SFEED= 0 

20 PRINT BL$;BL$;BL$ 

130 SPEED= 255 


Lassen Sie das Programm mit SPEED = 0 laufen. Verändern Sie die Geschwin- 
digkeit in Zeile 110 zu 50, 100, 150, etc., und starten Sie das Programm er- 
neut. 


Spiele mit Tönen 


Einfache Programme, die nur einen Ton benutzen, sind sehr leicht zu ent- 
werfen. Gesetzt den Fall, Lehrer oder Eltern möchten diesen Ton in einem 
Programm dazu benutzen, kleinen Kindern das Zählen beizubringen. So 
fragt z.B. ein solches Programm den Spieler nach einer Zahl zwischen 1 und 
10. Dann zeigt das Programm die Zählfolge bis zu dieser Zahl und hebt da- 
bei jede Zahl durch einen Ton hervor. Wenn ein Kind z.B. die Zahl 5 ein- 
gibt, so erzeugt das Programm einen Ton und zeigt die Zahl 1 an, der nächste 
Ton und die 2 erscheint, der nächste Ton und die 3 erscheint, usw. Das 
spielende Kind zählt die Töne, während es die Zahlen, die auf dem Bild- 
schirm erscheinen, beobachtet. 


Hier ist das Programm: 
10 REM ...EINGABE TOENE... 


Kim 
12 REM ERZEUGE TONANZAHL LAUT EINGABE 


15: 
100 L = 1: REM MINIMALE TONANZAHL 
110 H = 5: REM MAXIMALE TONANZAHL 


200 TEXT : HOME 

210 PRINT "BITTE NENNE EINE ZAHL VON ";L;" BIS ";H;: INPUT ": ";N 
22 IFN< L ORN > H THEN 200 

230 PRINT 

300 PRINF "ZAEHLE DIE TOENE....": FRINT : PRINT 

310 FOR J = 1 TO 1000: NEXT : REM PAUSE VOR DEM ERSTEN TON 
320 FOR J=1 TON 

3350 SPEED= O0 

3540 PRINT " ";: REM LASSE ZEIT VERSTREICHEN (2 # LEERTASTE) 
350 SFEED= 255 

360 PRINT J; 

370 PRINT CHR$ (7; 

390 NEXT 

500 PRINT : VTAB 18 

510 PRINT "DRUECKE RETURN UND VERSUCHE NOCH EINMAL. " 

515 PRINT "DRUECKE LEERTASTE FUER PROGRAMMENDE...." 

520 GET Z$ 

530 IF Z$ = CHR$ (32) THEN END : REM ABFRAGE VON ESC 

540 GOTO 200 


Speichern Sie dieses Programm als EINGABE TOENE ab, und starten Sie 
einen Probelauf. 


Frage 1: Schauen Sie sich das Programmlisting an. Wie wird die maximale 
Anzahl von Tönen auf 20 verändert? 


Dieses Programm ist etwas ungewöhnlich, da es dem Spieler laufend Anwei- 
sungen erteilt. Bei den meisten Lehrprogrammen und Spielen erhält jedoch 
der Computer die Befehle. Tatsächlich testet bzw. rechnet der Computer 
häufiger, als daß er lehrt. Beim Schreiben von Programmen ist darauf zu 
achten, wer die Anweisungen während eines Spiels gibt. Gewöhnlich macht 
es dem Spieler mehr Spaß, wenn er die Kontrolle über den Computer ausübt. 


Eine herkömmliche Variante des Spielens mit Tönen und Zahlen ist folgen- 
de: Das Programm wählt eine Zahl, gibt mehrere Töne von sich und fragt 
den Benutzer nach der Anzahl der Töne. Dieses neue Programm testet die 
Fähigkeit des Spielers im Zählen der Töne. Es spornt auch an, wenn die Ant- 
wort nahe beim richtigen Ergebnis liegt (siehe Zeile 120 und 430 im Pro- 
gramm weiter unten). 


Anstatt das ganze Programm einzugeben, können wir auch das vorherige Pro- 
gramm EINGABE TOENE wie folgt abändern: 


Die Zeilen 220, 230 und 360 werden gelöscht und anschließend folgende 
Zeilen eingefügt. (Einige der folgenden Zeilen beinhalten lediglich kleine Ver- 
änderungen der bereits vorhandenen Zeilen.) 


10 REM ... ZAEHLE-EINGABE-TOENE,.. 

11: 

100 L 4: REM MINIMALE ANZAHL VON TOENEN 

110 H 16: REM MAXIMALE ANZAHL VON TOENEN 

120 C 1: REM WIE NAHE AM RICHTIGEN ERGEBNIS? 

210 N INT (H-L+1) % RND (1)) + L: REM # OF BEEPS 

380 HTAR 1 

400 INPUT "NUN, WIE VIELE TOENE WAREN DIES? “; 

410 PRINT 

420 IF G = N THEN PRINT "DAS IST RICHTIG !!!": GOTO 500 

430 IF ABS (G - N) < = C THEN PRINT "FAST,ABER NICHT GANZ GENAU. 
.. ES SIND... ";N5".": GOTO 500 

440 PRINT "SPIEL NOCHMAL... ES WAREN 1 Hiacua 


Speichern Sie das Programm als ZAEHLE TOENE und starten Sie es. 


Frage 2: Wie ändern Sie die Variable für die Ausgabe eines aufmunternden 
Textes auf 3? 


Weitere Töne 


Die Nutzung des bisherigen Tones eröffnet interessante Möglichkeiten zum 
Programmieren, doch kann der APPLE ebenso viele andere Töne produ- 
zieren. Wie bereits erwähnt, bestimmt die Anzahl der Schaltvorgänge pro 
Sekunde (Frequenz) die Höhe des computererzeugten Tones. 


Als erstes geben Sie das folgende Programm ein und speichern es als NEXT- 
DATA-EINHEIT ab. Dieses Programm erlaubt der READ DATA-Anwei- 
sung, bei einer beliebigen Zeilennummer zu beginnen. Diese Einheit kann in 
allen Programmen dazu benutzt werden, den DATA-Zeiger auf eine bestimm- 
te Zeilennummer zurückzusetzen. (siehe Anhang B für zusätzliche Erläute- 
rungen.) 


10 REM ..„.NEXTDATA EINHEIT... 

Slums 

12 REM BEGINNE READ IN BELIEBIGER ZEILE... 
15 3: 

BIT 3 

18992 : 

198997 REM *% NAECHSTE DATEN IN ZEILE Z *# 
18994 REM EINGANGSVARIABLE: Z ZEILENNUMMER 


19999 : 

19000 IF YR% THEN 19200: REM  UEBERPRUEFE,OB NEXTDATA PROGRAMM GEL 
ADEN IST 

19010 YR% = 770: REM  NAECHSTE DATA ADRESSE 

19097 : 


19098 REM NEXT DATA PROGRAMMM GESCHRIEBEN IN MASCHINENSPRACHE 

17097 : 

19100 FOKE 770,173: FOKE 771,0: POKE 772,3: FOKE 773,133: FOKE 774, 
80: FOKE 775,173: FOKE 776,1: FOKE 777,3 

19110 FOKE 778,13 FOKE 779,81: POKE 780,32: FOKE 781,26: FOKE 792 
‚214: POKE 783,165: POKE 784,155: POKE 785,24 

19120 FOKE 796,105: FOKE 797,4: POKE 798,133: FOKE 789,125: POKE 79 
0,165: FOKE 791,156: FOKE 792,105: FOKE 795,0 

19130 FOKE 794,133: FOKE 795,126: FOKE 796,96 

19200 2% = Z / 256: POKE YR% - 2,2 - 256 *& 7%: POKE YR% — 1,2%: REM 
LINE # 

19210 CALL YR% 

19220 RETURN 








Speichern Sie dieses Programm als NEXTDATA-EINHEIT ab. 


Dies ist das erste von sogenannten “Black-box“-Programmen, die wir Ihnen 
zur Verfügung stellen. Der Begriff “Black-box‘ wird allgemein für etwas ver- 
wendet, dessen Auswirkung leicht erkennbar ist, dessen genaue Funktions- 
weise aber verborgen bleibt. Unsere “Black-box“-Programme sind in Ma- 
schinensprache geschrieben. Führen wir diese Programme ein, so erläutern 
wir zwar ihre Funktion, behandeln aber nicht den Programmaufbau in allen 
Einzelheiten. Ihre komplizierte Konstruktion würde das Ziel dieses Buches 
übersteigen. Für interessierte Leser verweisen wir auf Anhang B. Die meisten 
von Ihnen werden die Programme auch ohne nähere Erläuterung benutzen, 
um sich das Programmieren zu erleichtern. 





j -EINHEIT an: 
Fügen Sie das folgende Listing an NEXTDATA E 


NHEIT-NEXTDATA EINHEIT.» 


„KLANG EI 
N ERZEUG 
LU M SPIELEN VON BUCHSTABENFOLGEN UND 
12 rem KLANG PROGRAMM zum S 
© EN VON KLANGEFFEKTEN 
13 : 
1299 
Zi} TITE LAENGE #% 
a "REM  *# WIEDERGABE VON TONHDEHE Bun FESGESETZ 
: . 2 f Hi 
NGANGSVARIABLE:WP TONHO ee 
Ei = a (uP=0 UND PROGRAMM NICHT GELADEN N 
ALISIERUNG) 
12996 REM WD TONDAUER 
2999 : 
er IF WRZ THEN 13200: REM UEBERPRUEFE OR KLANG PROGRAMM SCHON 
LADEN 
15010 m \ 800:WP% = 799:WD% = 797: REM TON,TONHOEHE, TONDAUER A 
DRESSEN 


13020 Z = 13100: GOSUB 19000: REM SETZE READ-DATA-ZEIGER 
13050 7 = WR%: REM LADE KLANG PROGRAMM 





13060 READ Z1: IF Z1 > = O0 THEN FOKE 27,211:2 = 2 + 1: GOTO 15060 

13070 IF WP = O THEN RETURN : REM SPERRE NUR FUER INITIALISIERUN 
6 

13097 : 


13098 REM KLANG PROGRAMM GESCHRIEBEN IN MASCHINENSFRACHE 

13099 : 

13100 DATA 172,31,3,185,73,3,141,31,3,160,0,238,29,3,238,30,3,174, 
31,3,173,48,192 

13110 DATA 126,208, 10,206,29,3,208,5,206,30,3,240,5,202,240,234,20 


8,239, 96 

13117 : 

13118 REM TONHOEHEN 
13119 : 


13120 DATA 255,242,228,215,203,192,18 
3 242,228,215,203,192,181,171 
13130 DATA 161,152,143,135, 127,120, 113.107 


13140 DATA 101,95,90,85,80,75 
13150 DATA 63,59 5002/9271557 


1319 eis; 

ve nn Ba RL ISEN. m DATEN EINLESEN ZU BEENDEN 
ns 256: ‘E WDA,WD - 256 % 27%: POKE WDY + 1,2%: REM 

13210 FOKE WP%,WP: REM 

13220 CALL HR% 

13230 RETURN 

13292 : 


TONHOEHE # 


1329. ; 
a nn EINDANGEERCHSTABENKOMBINATION x 
IABLE: 7% T 

13295 REM En 
Ran WD TONDAUER 
15300 IF LEN (ze) 

= 0 THEN B 
is For iE TAN RETURN : REM  LEERER TEXT 
332 = ASC ( MIDs (78 
et »W,1)) - 84: REM 

SS NAECHSTER BUCH: 

WEN BEDIRGn, “ = 26 THEN cos 3 SER 
BT: NG ERFUELLT UR 13000; REM SPIELE, 
13350 RETURN 
13382 : 

SS Kat * KLANG EFFEKTE $ 
EINGANGSVARIABLEN: 


Wi LAENGE DER TOENE (>=0) 


6 





13385 REM W2 SCHRITTWEITE ZWISCHEN TOENEN (>0 








REM (uU2=0 UND FROGRAMM NICHT GELADEN = N 
‘ INITIALISIERUNG) 
REM WS ERSTER TON (0/255) 
REM W4 ANZAHL DER TOENE EINES ZYKLUS 
REM WS 1=ZURUECK;-1=VOR;O=VOR UND ZURUECK 
13590 REM W& PAUSE ZWISCHEN DER WIEDERHOLUNG 
DER ZYKLEN 
13391 REM W7 ANZAHL DER WIEDERHOLUNGEN 
13400 IF WE% THEN 13500: REM UEBERFRUEFE OB EFFEKTE EINGELESEN 
13410 IF WR% = O THEN UP = 0: GOSUB 153000: REM LESE KLANG PROGRAM 


M EIN,WENN NOTWENDIG 
WEX = 809: REM ADRESSEN FUER KLANGEFFEKTE 
IF W2 = O0 THEN RETURN : REM SFERRE NUR FUER INITIALISIERU 





13500 WH% = Wi / 256:4L% = Wi - 256 * WHZ: REM TONHGEHE ZWEI BYTES 
13510 IF W2< = 0 THEN W2 = 1: REM MACHE W2 GUELTIG 








13520 IF WS < O THEN WI = 0: REM MACHE WI GUELTIG 
D FOR Z = 1 TO W7: REM ANZAHL DER WIEDERHOLUNGEN 

13540 7% = WI + W2 % W4: IF WS < O THEN 15600: REM SFERRE NUR VORW 
RERTS 

13550 FOR Zi = WI TO Z% STEF W2: REM ZYKLUS RUECKWAERTS 

13560 IF Zi < = 255 THEN FOKE WP%,Z1: FOKE WD%,WL%: POKE WD% + 1, 


WH%: CALL WE%: REM NAECHSTER TON IST GUELTIG 
13570 NEXT 


13600 IF WS > Q THEN 13650: REM SPERRE NUR ZURUECK 

13610 FOR Z1 = 7% TO WS STEF - W2: REM ZYKLUS VORWAERTS 

13620 IF Z1 < = 255 THEN FOKE WP%,Z1: FOKE WD%,WL%: FOKE WD% + 1, 
UH%: CALL HEY: REM NAECHSTER TON IST GUELTIG 

13650 NEXT 





13650 FOR Z1 = 1 TO W6: NEXT : REM FAUSE ZWISCHEN 2 ZYKLEN 
13660 NEXT 
13670 RETURN 


Geben Sie dieses Listing ein und speichern es als KLANG EINHEIT ab. 


Dies ist eine Sammlung von Unterprogrammen, die in anderen Programmen 
benutzt werden können; lediglich für sich alleine sind die Unterprogramme 
nicht lauffähig! 


Musiknoten 


Die folgenden Änderungen an KLANG EINHEIT ergeben ein Programm, bei 
dem die Tasten mit den Ziffern 1 bis 8 den Noten der Tonleiter entsprechen: 


Löschen der Zeilen 13120 bis 13150. 


10 REM ».. TASTEN1/8-KLANG EINHEIT... 

11: 

12 REM FROGRAMM ZUM SPIELEN MIT DEN TASTEN 1 BIS 8 

15 : 

100 GOSUR 13000: REM INITIALISIERE KLANG EINHEIT 

200 TEXT : HOME 

210 FRINT "”SPIELE” EINEN TON,BENUTZE DIE TASTEN 1 BIS 8" 





220 PRINT 
230 PRINT "DRUECKE RETURN ZUM BEENDEN DES TONES.." 
240 PRINT "DRUECKE LEERTASTE FUER PROGRAMMENDE..." 


250 PRINT 

300 GET Z$ 

310 IF z$ = CHR® (13) THEN 509: REM RETURN 

320 IF 2% = CHR$ (32) THEN END : REM LEERTASTE 

330 IF z$ < "1" OR zZ > "89" THEN 300: REM IGNORIERE ANDERE TASTEN 


340 PRINT Z$; 

350 WP = ASC (278) - 48: REM WANDLE UM AUF 1/8 

360 UD = 50: REM TONDAUER 

370 GOSUB 13000 

380 GOTO 300 

500 PRINT : VTAR 18 

510 PRINT "DRUECKE RETURN UND VERSUCH’S NOCH EINMAL...» "; 
520 GET z$ 

530 IF Z$ = CHR® (32) THEN END : REM  LEERTASTE 

540 GDTO 200 


Speichern Sie dieses Programm als TASTEN 1/8 ab. 


Starten Sie es und spielen Sie einfache Melodien durch Betätigen der Tasten 1 
bis 8. Während des Spielens erscheinen die Ziffern der betätigten Tasten auf 
dem Bildschirm. Sie können sie abschreiben und sich so Tonfolgen festhal- 
ten, die Ihnen gefallen. Wie bei unseren anderen Programmen endet der Ton 
nach Drücken der RETURN-Taste. Mit der Leertaste wird das Programm ge- 
stoppt. 


Das Programm KLANG EINHEIT läßt den Computer bei einer bestimmten 
Anzahl verschiedener Frequenzen Töne erzeugen. Es arbeitet ähnlich wie das 
interne Programm, das durch Eingabe von Control-G aktiviert wird. Diesmal 
wurden Frequenzen gewählt, die ungefähr der Tonleiter entsprechen. Es wur- 
den die Ziffern 1 bis 8 benutzt, um die Tonleiter zu spielen. Die Zuordnung 
der Tonleiter zu den Tasten 1 bis 8 ist willkürlich und wird bestimmt durch 
die DATA-Anweisungen in den Zeilen 13120 bis 13150. 


Spielen Sie die folgende Sequenz von Noten und fügen bei jedem Sternchen 
eine Pause ein: 123455*66665*66665*444433*55551. 


Frage 3: Wie lautet die Melodie? 


Durch Änderung der DATA-Anweisungen in den Zeilen 13120 bis 13150 
können wir uns zusätzliche Frequenzen schaffen. Den neuen Tönen sind nun 
in alphabetischer Reihenfolge die Buchstaben der Tastatur zugeordnet. Das 
folgende Programm liefert daher eine chromatische Tonleiter mit 26 Tönen. 

Hier sind die Befehle, die die Funktion der Tasten 1 bis 8 auf die Tasten A 


bis Z übertragen. Machen Sie im Programm TASTEN 1/8 folgende Änderun- 
gen: 


10 REM „.. TASTEN A/Z - TASTEN 1/8 

bes 

12 REM PROGRAMM ZUM "SPIELEN" AUF DEN TASTEN A BIS Z IN ALPHABE 
TISCHER REIHENFOLGE 

13 ; 

210 PRINT "”’SPIELE” EINE MELODIE; BENUTZE DIE TASTEN A BIS Z" 


330 IF Z$ < "A" OR Z$ > "Z" THEN.SOO: REM IGNORIERE ANDERE TASTEN 


350 WP = ASC (7$) - 64: REM WANDLE UM AUF A/Z 
13120 DATA 255,242,228,215,203,192,181,171 
131350 DATA 161,152,143,135,127,120,113,107 
13140 DATA 101,95,90,85,90,75,71,67 


13150 DATA 83,57 


Speichern Sie dieses Programm als TASTEN A/Z ab. Starten Sie es und 
spielen Sie mit den Tasten A bis Z auf der Tastatur. Achten Sie auf die Töne. 
Wenn Sie eine hübsche Melodie gefunden haben, notieren Sie die Buchstaben 
auf dem Bildschirm, damit Sie das Lied später wieder spielen können. 


Musikalische Botschaft 


Nun stellen wir Ihnen ein Programm vor, das Melodien mittels Information 
aus dem Datenspeicher spielt und nicht direkt mit der Tastatur. Es erlaubt 
eine bestimmte Folge von Tönen von der Tastatur in den Speicher zu lesen. 
Nach Betätigen der RETURN-Taste spielt das Programm die Tonfolge; es 
ist nicht mehr notwendig, für jeden Ton eine Taste zu drücken. 


Ändern Sie TASTEN A/Z wie folgt: 
Streichen Sie die Zeilen 300 bis 380 und fügen die folgenden Zeilen hinzu: 


10 REM „..MUSIK BOTSCHAFT TASTEN A/Z 

11: 

12 REM PROGRAMM ZUR EINGABE UND ZUM SPIELEN VON TEXTEN (ALFHABETIS 
CH} 









PRINT "GIB ”MELODIE’ EIN ,„ DANN DRUECKE RETURN ZUM SPIELEN" 
PRINT 
INFUT "MELODIE: ";27$% 
= 50 TONDAUER 
310 GOSUR i 0: REM SFIELE TEXT 


Speichern Sie dieses Programm als MUSIK BOTSCHAFT ab. Starten Sie es 
und benutzen Sie einige der Melodien, die Sie bereits notiert haben. Wie wäre 
es, wenn Sie Ihren Namen eingeben und hören, wie der Computer dies spielt? 
Wie klingen die Namen Ihrer Stadt oder Ihres Landes? Ein leicht variiertes 
Programm könnte nach Ihrem Namen fragen und diesen mehrmals spielen, 
vielleicht in veränderter Reihenfolge. 


Frage 4: Wie wird das Programm geändert, damit eine Melodie dreimal an- 
statt nur einmal gespielt wird? 





Ändern Sie MUSIK BOTSCHAFT durch Hinzufügen folgender Zeilen: 


10 REM ...VOR UND ZURUECK-MUSIK BOTSCHAFT... 

11: 

12 REM GIR EINEN TEXT EIN, DANN SPIELE VOR UND ZURUEC 

13 : 

110 BF = 1: REM WIE OFT VOR UND ZURUECK? 

250 INPUT "TUNE: ";F$ 

260 B$ = "" 

270 IF LEN (F$) THEN FOR J = 1 TO LEN (F$):B& = B&$ + MID® (F$, LEN 
{F$) + 1 - J,1): NEXT : REM TEXT RUECKWAERTS 

290 FOR J = 1 TO BF 

305 Z$ = F$: REM VORWAERTS 

520 Z7$ = B$: GOSUR 13300: REM ZURUECH 

330 NEXT 


Speichern Sie dieses Programm als VOR/ZURUECK und starten Sie es. 
Tippen Sie auf den Tasten A bis Z Ihre Melodie ein und hören Sie sich das 
Ergebnis an. Wir haben nun ein Programm, das eine Folge von Buchstaben 
zuerst in der eingegebenen Reihenfolge abspielt und dann nochmals in der 
umgekehrten Richtung. Nachdem Sie ein paar Wörter und Formulierungen 
ausprobiert haben, versuchen Sie einige ‘Palindrome‘ einzutippen, um zu 
hören, wie diese klingen. (Ein ‘Palindrom‘ ist eine Folge von Buchstaben, die 
in beiden Richtungen gelesen denselben Wortlaut ergibt. Zwei Beispiele hier- 
für sind: „Eine treue Familie bei Lima feuerte nie‘‘ oder „Neuer Dienst mag 
Amtsneid reuen‘“.) 


Frage 5: Alle Töne haben die gleiche Länge. Welche Zeile muß geändert 
werden, um die Tondauer zu verlängern? 


Frage 6: Wie lautet die Variable, die angibt, wie oft die Buchstabenfolge 
vorwärts und rückwärts zu spielen ist? 


Piano 


Eine weitere Änderung des Tastenfeldes beinhaltet das folgende PIANO-Pro- 
gramm. Diesmal wird jeder Buchstabe des Tastenfeldes mit einer Note gleich- 
gesetzt. Anstatt einer alphabetischen Ordnung entsprechen nun die Tasten 
von links nach rechts Tönen mit steigender Frequenz. 


Um das Programm PIANO zu erstellen, machen Sie bitte folgende Änderun- 
gen im Programm TASTEN A/Z (nicht bei VOR/ZURUECK, obwohl diese 
Änderungen das Tastenfeld bei VOR/ZURUECK auch beeinflussen): 


10 REM ».„.„PIANO-TASTEN A/Z 


12 REM "PIANO" VERWENDUNG DER TASTEN A/Z 

15 : 

210 PRINT ""PIANO’ UNTER VERWENDUNG DER TASTEN A-Z" 
13120 DATA 171,203, 228, 152,90,1453,135,127 

13130 DATA 8&7,120,113,107,181,192,63,59 

13140 DATA 101,85,161,80,71,215, 95,242 

13150 DATA 75,255 
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Speichern Sie dieses Programm als PIANO ab. Alles was verändert wurde, 
war wiederum nur die Zuordnung der Tonhöhen zu den einzelnen Tasten in 
den Zeilen 13120 bis 13150. Mit diesem Programm kann auf der Tastatur 
des Computers wie auf einem Piano gespielt werden. (Mit Ausnahme der Tat- 
sache, daß alle Töne die gleiche Länge haben und nicht mehrere Tasten 
gleichzeitig gespielt werden können.) Sicherlich fällt es mit dieser Anordnung 
der Töne jetzt leichter, Melodien zu spielen. 


Elektrische Orgel 


Eine Randbedingung aller bisherigen Programme ist, daß die Töne eine fest- 
gelegte Dauer haben. Wir können die Länge der Töne variieren, aber wir sind 
nicht in der Lage, die Dauer jedes einzelnen Tones unabhängig von den 
anderen Tönen zu verändern. Das folgende Programm macht von einer gänz- 
lich anderen Möglichkeit der Tondauerbestimmung Gebrauch. Ein Ton dauert 
so lange an, bis eine neue Taste gedrückt wird — dieser Effekt imitiert also 
eine elektrische Orgel. 


Modifizieren Sie das Programm PIANO wie folgt: 


10 REM ...ORGEL-FIANO... 
11: 

12 REM ELEKTRISCHE ORGEL 

13 

100 GOSUB 13700: REM INITIALISIERE ORGEL FROGRAMM 
210 FRINT ""ORGEL’ VERWENDET DIE TASTEN A BIS Z" 
370 GOSUB 13700 

138723 

13693 REM 4 ORGEL # 

13694 REM EINGANGSVARIABLE: WP TONHOEHE 


13695 REM (WP=0 UND PROGRAMM NICHT GELADEN = NUR INITI 
ALISIERUNG) 

13699 : 

13700 IF WS% THEN 13900: REM UEBERFRUEFE, OB ORGEL-FROGRAMM GELADE 
N 


13710 WS% = 882: REM ORGEL ADRESSEN 

13720 IF UR% = O THEN W = WP:WP = O0: GOSUB 13000:WP = W: REM LADE 
KLANG PROGRAMM(SPEICHERE TOMHOEHE) 

13730 Z = 13800: GOSUB 19000: REM SETZE READ-DATA-ZEIGER 

13750 Z = WS%: REM LADE ORGEL PROGRAMM 

13760 READ Zi: IF Zi > = 0 THEN FOKE Z,21:2 = Z + 1: GOTO 13760 

13770 IF WP = O THEN RETURN : REM SPERRE NUR FUER INITIALISIERUN 
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13797 : 

13798 REM ORGEL PROGRAMM GESCHRIEBEN IN MASCHINENSPRACHE 

137997 : 

13800 DATA 172,31,3,189,73,3,141,31,3,173,0,192,48,14,174,31,3,173 
‚48,192 

139810 DATA 136,208,0,202,240,239,208, 248,96 

13890 DATA -1: REM ZEICHEN ZUM BEENDEN DES DATENEINLESENS 


13900 POKE WF%,WP: REM TONHDEHE 
13910 CALL WS% 
13920 RETURN 
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Speichern Sie dieses Program ] 
Ihe: wie es sich vom Programm PIANO unterscheidet. 


Klang-Effekte 


Zum Schluß möchten wir das sehr leistungsstarke Progra 
FEKTE vorstellen. Da dieses Programm viele Möglichkeite 
wir Ihnen einen systematischen Weg auf, es kennenzulernen. 


Eine Vielfalt von Klangeffekten wird möglich, wenn 
zum Programm KLANG EINHEIT hinzufügen. 


10 REM 4... KLANG EFFEKTE-KLANG EINHEIT.. 

11: 

12 REM KLANG EFFEKT ENTWICKLUNG 

13 : 

100 GOSUB 13400: REM INITIALISIERE KLANG EFFEKTE FROGRAMM 
210 Wi 0 

220 W2 1 

230 WI = 0 

240 W4 10 

250 WS 1 

260 W6 = 200 

270 W7=4 

300 TEXT : HOME 

310 PRINT : PRINT "LAENGE JEDES TONES : ";Wi 

320 PRINT : PRINT "SCHRITTWEITE ZWISCHEN ZWEI TOENEN :";W2 
330 PRINT : PRINT "ERSTER TON a "SWS 

340 PRINT : FRINT "ANZAHL DER TOENE IN EINEM ZYKLUS: ";W4 


[a u a u u | 


360 PRINT : PRINT "FAUSE ZWISCHEN ZWEI WIEDERHOLUNGEN: ";W5& 


370 PRINT : PRINT "ANZAHL DER WIEDERHOLUNGEN: ";W7 
500 FRINT : VTAB 18 

510 PRINT "DRUECKE RETURN UND HOEREN SIE..."; 

520 GET Z$ 





530 IF Z$ = CHR$ (32) THEN END : REM LEERTASTE 
540 GOSUB 13400 
600 PRINT : PRINT 


610 PRINT "DRUECKE RETURN UND FROBIEREN SIE NEUE VARIABLEN AUS. 
\ 620 GET Z$ 


650 IF Z$ = CHR$ (32) THEN END : REM LEERTASTE 
700 TEXT : HOME 


N SIE RETURN, UM DEN ALTEN WERT BEIZUBEHALTEN. " 


m als ORGEL ab. Spielen Sie damit, 


350 PRINT : PRINT "1=ABWAERTS; -1=AUFWAERTS; O=AUF-UND ARWAERTS";WS 


um zu 


mm KLANG EF- 
n eröffnet, zeigen 


wir die folgenden Zeilen 


| " 
; 710 PRINT "GEBEN SIE FUER JEDEN PARAMETER EINEN WERT EIN ODER DRUECKE 


= 
Bi 810 PRINT : PRINT "ALTE DAUER EINES JEDEN TONES: ";Wi;" NEW: "5: 
i 27%: IF LEN (2%) THEN WI = VAL (7%) 


\ 
u) : INPUT Z$: IF LEN (2%) THEN W2 = VAL (Z8) 


850 PRINT : PRINT "ALTER START TON : "zWI;" 
s HR NEW: "5: : 
(78) THEN WI = VAL (78) ; Des 


840 PRINT : PRINT "ALTE ANZAHL VON TOENEN IM ZYKLUS: ";W4;" NEW: 
28: IF LEN (2%) THEN W4 = VAL (Z8) 


%: IF LEN (Z$) THEN WS = VAL (Z8) : “i 


PRINT : PRINT "ALTE PAUSE ZWI 
SCHEN 2 ZYKLEN "zW5; " 2 "53 
2%: IF LEN (Z$) THEN W6 = VAL (78) = ae 


870 PRINT : PRINT "ALTE ANZAHL VON WIEDERHOLUNGEN: SA NEW: " 


28: IF LEN (Z$) THEN W7 = 
870 GOTO 300 ER 





INPUT 


820 PRINT : PRINT "ALTE SCHRITTWEITE ZWISCHEN 2 TOENEN: ";W25" NEW: "5 


IF LEN 


INPUT 


INPUT 


PRINT : “ 
T : PRINT "ALTER AUF/ABWAERTS PARAMETER ";WS;" NEW: "3: INPUT Z 


s: INFUT 


Speichern Sie dieses Programm unter dem Namen KLANG EFFEKTE ab. 
Lassen Sie es einige Male ablaufen und lesen Sie danach an dieser Stelle 
weiter. 

Das Programm gibt die Zahlenwerte jedes Parameters mittels Bildschirm an 
und erzeugt nach Drücken der RETURN-Taste den dadurch bestimmten 
Klangeffekt. Nun fragt es nach den Änderungen der Parameter, wobei jeder 
Wert einzeln abgefragt wird. (Durch einfaches Drücken der RETURN-Taste 
wird der aktuelle Wert beibehalten.). 


Die Vielfalt von Klangeffekten, die durch dieses Programm erzeugt werden, 
ist außerordentlich groß. Obwohl es verlockend ist, mit jedem Durchlaufen 
des Programms alle Parameter zu variieren, wird es zum Kennenlernen nütz- 
licher sein, nur ein oder zwei Parameter gleichzeitig zu ändern. 

Haben Sie Töne gefunden, die Ihnen gefallen, variieren Sie die benutzten 
Zahlenwerte. Auf diese Weise sehen Sie, ob der Klang weiter verfeinert wer- 
den kann. Notieren Sie sich die Zahlenwerte, damit das Programm mit diesen 
speziellen Werten auch für zukünftige eigene Programmentwicklungen zu be- 
nutzen ist. 

Schauen Sie zuerst, wie sich der Klang ändert, wenn der Anfangston verän- 
dert wird. Die möglichen Töne in einem Zyklus reichen von O (hoher Ton) 
bis 255 (tiefer Ton). Wir starten mit 0, also dem höchsten Ton. Versuchen 
Sie einige Anfangstöne, die tiefer liegen. Ursprünglich haben wir die Anzahl 
der Töne in einem Zyklus auf zehn festgesetzt; versuchen Sie, diese zu ver- 
kleinern. Haben Sie bemerkt, daß bei kürzer werdenden Zyklen der Klang 
einem Knacken ähnelt? Die Schrittweite gibt die Anzahl von Tönen zwischen 
zwei verschiedenen Noten an. Bei größerer Schrittweite wird der resultieren- 
de Klangeindruck weniger fließend sein. 


Nun möchten wir die Anzahl der Wiederholungen eines Zykluses und die 
Länge der Pause zwischen zwei Zyklen verändern. Keine dieser Änderungen 
hat große Auswirkungen auf den Klang. Dagegen wird die Änderung des 
AUF/ABWÄRTS-Parameters den Höreindruck bedeutend verändern. 

Es gibt folgende Möglichkeiten: 1 (nur aufwärts), - 1 (nur abwärts) und O 
(auf- und abwärts). 


An dieser Stelle wird der Leser schon etwas vertrauter mit den bisher er- 
läuterten Programmteilen sein. Nachdem das Programm einige Zeit benutzt 
wurde, ist es leicht die Art der Klangeindrücke vorherzusagen, die durch die 
unterschiedlichen Werte der Variablen verursacht werden. 

Bis hierhin haben Sie sicher eine kleine Sammlung von Zahlenkombinationen 
aufgeschrieben, die Klänge und Töne nach Ihrem Geschmack erzeugen. Beim 
Einbau dieses Programms in eigene Programme werden die Werte den ent- 
sprechenden Parametern zugeordnet, um so die gewünschten Klangeffekte zu 
erzeugen. 
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Zusammenfassung 


Im ersten Kapitel haben wir gezeigt, wie die BELL-Taste und der SPEED- 
Befehl genutzt werden können. Wir haben außerdem ein eigenständiges Pro- 
gramm zur Simulation eines Pianos erhalten und ein weiteres, das eine Orgel 
simuliert. 

Das nützlichste Programm dieses Kapitels ist KLANG EINHEIT. Dieser Bau- 
stein erlaubt es, Musiktöne aller Art zu erzeugen und exotische Klangeffekte 
zu produzieren. Wir werden KLANG EINHEIT in einigen weiteren Program- 
men in diesem Buch verwenden. 


Unterprogramm zur Klangerzeugung: Zusammenfassende Hinweise 


Wir haben gezeigt, wie die verschiedenen Klangmöglichkeiten des APPLE be- 
einflußt werden können. Nun wollen wir demonstrieren, wie eigene Program- 
me des Lesers mit Tönen und Musik ausgestattet werden können. 

Die Variablenbezeichnungen W, X, Y, und Z werden in unseren Unterpro- 
gramm-Einheiten benutzt und sollten daher in eigenen Programmen nicht 
mehr verwendet werden. (mit Ausnahme der Kommunikation mit unseren 
Unterprogrammen). Weiter sollten die Programme keine Zeilennummern 


zwischen 10000 und 50000 enthalten, denn dort sind unsere Programm- 
listings angesiedelt. 


Töne und Melodien: Zusammenfassung 


Um Musik mit den Tasten der Buchstaben A bis Z zu erzeugen, müssen wir 
folgendes wissen: 

Beginn des Unterprogramms: 13300 

Eingangsvariablen: Z$ Textvariable 

WDTondauer 

Ein Musikprogramm kann zum Beispiel so aussehen: 

1220 Z$ = “LUSTIGE APPLE SPIELE“ 

1230 WD = 100 

1240 GOSUB 13300 

1250: 

1260 REM FORTSETZUNG DES PROGRAMMS. 
So einfach ist das Ganze! 


Klangeffekte: Zusammenfassung 


Um Klangeffekte zu erzeugen, können Sie bis zu sieben Variablen festlegen 
oder ihren vorbestimmten Wert benutzen. 

Beginn des Unterprogramms: 13400 

Eingangsvariablen: 

W1: Länge der Töne: =0 

W2: Schrittweite zwischen den Tönen: =0 
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: Anfangston: 0 bis 255 
: Anzahl der Töne in einem Zyklus 
: 1 = Tonfolge abwärts, — 1 = Tonfolge aufwärts, 0 = Tonfolge auf- 


und abwärts 


: Pause zwischen Wiederholungen 
W7: 


Anzahl der Wiederholungen 


Ein Programm zur Erzeugung von Klangeffekten kann wie folgt geschrieben 


werden: 


1300 W1=4: W2=1: W3=50: W4 = 20: W5=0: W6=200: W7=4 
1310 GOSUB 13400 

1320: 

1330 REM FORTSETZUNG DES EIGENEN PROGRAMMS 


Lösungen zu Kapitel 1 




















110 H = 20 
120C=3 
Alle meine Entchen ... 


305 FORJ=1TO3 
314 NEXT 


Zeile 300 
Ändere den Wert von BF in Zeile 110 
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Kapitel 2 
Die niederauflösende Grafik 





In diesem Kapitel werden die Grundprinzipien der niederauflösenden Grafik 
(im folgenden LO-RES-Grafik genannt) und die Programmierung einiger 
Farbeffekte erläutert. Wir zeigen, auf welche Weise Farbpunkte auf dem Bild- 
schirm dargestellt werden können. Anschließend erweitern wir unsere Über- 
legungen auf farbige Linien, Rechtecke, Begrenzungen und zeigen Program- 
me, die den ganzen Bildschirm mit Farbe ausfüllen. 

Das Kapitel soll uns mit dem Gebrauch der LO-RES-Grafik intensiv vertraut 
machen, damit die Möglichkeiten von LO-RES in eigenen Programmen ver- 
wendet werden können. Auch wenn Sie die speziellen Programme dieses 
Buches nicht benutzen, können Sie die hier gemachten Überlegungen anwen- 
den und eigene Programme mit Farbeffekten erstellen. (In Kapitel 3 werden 
wir schen, wie Bilder oder Muster von LO-RES-Farbpunkten erstellt und ver- 
ändert werden.) 

Der APPLE-Computer hat sechzehn Farben zur Verfügung, die auf dem Bild- 
schirm bzw. Farb-Monitor gezeigt werden. Durch Gebrauch der niederauf- 
lösenden Grafik können wir diese Farben verwenden. Geringe Auflösung be- 
deutet, daß Details nur begrenzt darstellbar sind. Der kleinste adressierbare 
(d.h. veränderbare) Punkt ist etwa halb so groß wie ein auf dem Schirm aus; 
gedrucktes Textzeichen. Im Gegensatz dazu können mit der hochauflösen: 
den Grafik sehr viel kleinere Punkte dargestellt werden; dies ergibt Bilder mi: 
besserer Detailwiedergabe, doch leider sind bei der hochauflösenden Grafik 
nur sechs Farben verfügbar. Wir werden auf die hochauflösende Grafik ir 
Kapitel 4 näher eingehen. 

Es gibt zwei Formen der LO-RES-Grafik. Die erste hat vierzig Grafikzeileı 
und ein vier Zeilen großes Textfenster. Die andere erlaubt es, den ganzer 
Bildschirm (48 Zeilen) mit Grafik auszufüllen. Die erste Form werden wi 
des öfteren benutzen, denn sie gibt uns die Möglichkeit, Textanweisungeı 
zusammen mit der Grafik auf dem Bildschirm erscheinen zu lassen. 
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Text und Grafik können nur durch Verwendung des vier Zeilen großen Text- 
fensters gemischt werden. Später werden wir zeigen, wie mittels LO-RES- 
Grafik Blockbuchstaben zum Schreiben von Wörtern oder Zahlen erstellt 
werden. 


Die Farbgrafik des APPLE-Computers 


Zur Programmierung von Farbeffekten in LO-RES-Grafik werden nur fünf 
Befehle benötigt: GR, COLOR, PLOT, HLIN und VLIN. Mit GR schaltet 
der APPLE in die mit dem Textfenster versehene Form der LO-RES-Grafik. 
Der Bildschirm wird gelöscht und erscheint völlig schwarz. (Die zweite Form 
der LO-RES-Grafik wird weiter unten behandelt.) 

Mit COLOR wird eine bestimmte Farbe gewählt. Sie wird so lange verwen- 
det, bis sie mit einem anderen COLOR-Befehl geändert wird. So ergibt z.B. 
der Befehl COLOR = 4 die Farbe dunkelgrün. Die Zuordnung der Farbe ist 
aus der nachfolgenden Tabelle ersichtlich: 


0 SCHWARZ 8 BRAUN 

1 MAGENTAROT 9 ORANGE 

2 DUNKELBLAU 10 GRAU 2 

3 VIOLETT 11 ROSA 

4 DUNKELGRÜN 12 HELLGRÜN 
5GRAUI 13 GELB 

6 BLAU 14 AQUAMARINBLAU 
7 HELLBLAU 15 WEISS 


Der Befehl PLOT weist den APPLE an, einen Farbpunkt an einer bestimm- 
ten Stelle zu zeichnen. Beim Arbeiten mit Textfenster ist der Bildschirm in 
vierzig mal vierzig Punkte unterteilt. Die Punkte sind von 0 bis 39 numeriert. 
Jeder Punkt wird durch ein Zahlenpaar beschrieben, wobei die H-Koordinate 
(horizontal) an erster Stelle, die V-Koordinate (vertikal) an zweiter Stelle an- 
gegeben wird. Der Punkt 0,0 befindet sich in der linken, oberen Ecke des 
Bildschirms. Der Befehl PLOT 3,9 bewirkt, daß ein Punkt in der dritten Spal- 
te von links und der neunten Zeile von oben gezeichnet wird. 
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Mit dem Befehl HLIN werden zwei Punkte einer bestimmten Zeile horizontal 
verbunden. Mit VLIN werden zwei Punkte einer bestimmten Spalte vertikal 
verbunden. So bewirkt z.B. HLIN 3,23 AT 9 das Zeichen einer horizontalen 
Linie in Zeile neun, von der dritten bis zur dreiundzwanzigsten Spalte. 


Zusammengefaßt: Ein farbiger Punkt wird auf folgende Weise erzeugt: 
— Umschalten auf LO-RES-Grafik, 

— Wahl einer Farbe, 

— Eingabe des PLOT-Befehls. 


Mit weiteren PLOT-Befehlen werden andere Punkte derselben Farbe gezeich- 
net. Die Befehle HLIN und VLIN bewirken das Zeichen horizontaler und 
vertikaler Linien. Durch Verwenden des COLOR-Befehls wird die Farbe vor 
dem Zeichnen des nächsten Punktes verändert. 


Probieren Sie folgendes Programm aus: 


100 GR: COLOR =4 
110 HLIN 3,23 AT 9 
120 VLIN 3,25 AT 23 
130 END 


Farbige Punkte 


Hier ist ein einfaches Programm, das an zufällig gewählten Stellen des Bild- 
schirms farbige Punkte ausdruckt. 


10 REM «..FARBPUNKTE... 
11: 

100 GR : HOME 

200 PRINT 


210 PRINT "DRUECKE EINE BELIEBIGE TASTE ZUM BEENDEN DES FROGRAMMS 
a “; 

300 H INT (40 & RND (1)) 

400 V INT (40 8 RND (1)) 

500 COLOR= INT (16 # RND (1)) 

600 PLOT H,V 


700 P = 200 
710 FOR Z = 1 TO P: NEXT : REM PAUSE 
800 IF PEEK ( - 16384) < 128 THEN 300: REM KEINE TASTE GEDRUECKT 


310 GET 2%: REM LOESCHE TASTENDRUCK 


Die Bildschirmkoordinaten zum Ausdruck der Punkte werden in den Zeilen 
300 (horizontal) und 400 (vertikal) festgelegt. Für jede Koordinate wird eine 
Zahl zwischen O und 39 per Zufall ermittelt. Für die Farben wird eine Zu- 
fallszahl zwischen O und 15 gewählt. Damit stehen alle möglichen Farben zur 
Verfügung. Der PLOT-Befehl wird in Zeile 600 erteilt. 

Die Gleichungen in den Zeilen 300 und 400 können verallgemeinert werden. 


So ist es möglich, eine zufällige Zahl zwischen zwei beliebigen Zahlen A und 
B auszuwählen. Die allgemeine Anweisung lautet: 


LETR=INT((B-A+1)*RND(1))+A 
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Wichtig in diesem Programm ist schließlich das Programmieren einer Pause in 
Zeile 700. Das Verändern des Zahlenwertes der Variable ändert die Zeit- 
spanne zwischen dem Ausdrucken zweier Punkte. 

Geben Sie dieses Programm ein und speichern Sie es unter dem Namen 
FARBPUNKTE. Starten Sie das FARBPUNKTE-Programm. Es kann beendet 
werden durch das Betätigen einer beliebigen Taste. Dabei bleibt der Rechner 
jedoch auf LO-RES-Grafik geschaltet. In dieser Form stehen nur vier Text- 
zeilen am unteren Bildschirmrand zur Verfügung. 

Um den ganzen Bildschirmbereich wieder für Text verwenden zu können, 
geben Sie das Kommando TEXT ein. Auf dem Bildschirm erscheinen eine 
Vielzahl von schwarzen und weißen Zeichen, die in schneller Folge aufleuch- 
ten. Mit dem Befehl HOME wird der Bildschirm vollständig gelöscht. Der Be- 
fehl TEXT: HOME schaltet den Computer auf die Textform um und löscht 
sofort den Bildschirm. Mit GR:HOME wird die Grafik auf dem Bildschirm 
gelöscht, aber der Rechner verbleibt in der LO-RES-Grafikform. 

Probieren Sie, einige Parameter in dem FARBPUNKTE-Programm zu ändern. 
Was geschieht? 


Frage 1: Wie muß FARBPUNKTE verändert werden, damit alle Punkte mit 

“der Farbe rosa gezeichnet werden? 

Frage 2: Mit dem Programm FARBPUNKTE sollen gelbe Punkte in der 

7707 oberen Hälfte des Bildschirms gezeichnet werden? Welche Ände- 
rungen sind notwendig? 

Frage 3: Ein Quadrat mit zehn Punkten Seitenlänge im Zentrum des Bild- 

777 schirms soll mit violetten Punkten ausgefüllt werden. Welche Be- 
fehle sind notwendig? 


Sicherlich können einige dieser Variationen des FARBPUNKTE-Programms 
in eigenen Programmen des Lesers angewandt werden. Wie können wir z.B. 
die Augen eines wilden Tieres darstellen, die nachts im dunklen Dschungel 
aufleuchten? Wir nehmen ein dunkles Grün und gelbe Farbpunkte und lassen 
diese auf dem dunklen Bildschirm erscheinen. Ein weiteres Beispiel: Wir 
schauen von oben auf Münzen, die in einen Wunschbrunnen geworfen wer- 
den. Dies wird dargestellt durch gelbe Farbpunkte, die in einem kreisförmigen 
Bereich im Zentrum des Bildschirms erscheinen. In beiden Fällen kann die 
Anzahl der Farbpunkte, die auf dem Bildschirm erscheinen, durch eine FOR- 
NEXT-Schleife kontrolliert werden. 


Hier ist das vollständige Listing von WUNSCHBRUNNEN: 


10 REM » . „WUNSCHBRUNNEN. . . 


100 GR : HOME 
120 RA = 16: REM RADIUS DES BRUNNENS 

= RA * RA: REM OUADRAT DES RADIUS 
130 HO = 19: REM H-FOS DES MITTELPUNKTS 
150 VO = 19: REM V-FOS 
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210 PRINT "DRUECKE EINE BELIEBIGE TASTE ZUM BEENDEN DES FROGRAMMS 


’ 

300 REM BESTIMME ERST H,V IN IN EINEM QUADRAT MIT ZENTRUM IN (HO,VO) U 
ND SEITENLAENGE = Z#RA 

310 H= INT (2 #RAx RND (1)) + HO - RA 

400 V = INT (2 # RA * RND (1)) + VO - RA 


410 REM DANN KONTOLLIERE, OB (H,V) IN DER MITTE DES KREISES IST 

420 IF (H - HO) * 2 + (V - VO) * 2 > R2 THEN 310: REM BESTIMME EINEN N 
EUEN PUNKT, WENN DER ERSTE IM OUADRAT,ABER NICHT IM KREIS IST 

500 COLOR= 15 

&00 PLOT H,V 

700P=1 

710 FOR Z = 1 TO F: NEXT : REM FAUSE 

800 IF FEEK ( - 165384) < 128 THEN 5300: REM 


KEINE TASTE GEDRUECKT 
810 GET Z8%: REM LOESCHE TASTENDRUCK 


Dies ist nur eine kleine Auswahl der Möglichkeiten, die mit einem Programm 
zur Erzeugung von Farbpunkten programmiert werden können. 


Ein weiterer Weg zur Änderung des Programms ergibt sich durch Verwen- 
dung einer variablen Zeitverzögerung; sie wird durch den Wert der Variablen 
P in Zeile 700 angegeben. Dazu wählen wir einen Intervallbereich, in dem 


der Parameter P enthalten sein soll. Nun benutzen wir die Anweisung, die auf 
Seite 18 gegeben wurde. 


Frage 4: Es sollen nur Punkte in den Farben blau und orange gezeichnet 
werden. Wie muß das Programm geändert werden? (Siehe Farb- 
tabelle auf Seite 17) 

Frage 5: 


Es sollen abermals Punkte in den Farben blau und orange gezeich- 
net werden. Dabei soll die Farbe blau dreimal so häufig erscheinen 
wie die Farbe orange. Welche Befehle sind notwendig? 


Das folgende Programm simuliert das “Wachsen‘‘ von Blumen auf einem 
leeren Feld. Für die Blumen haben wir drei Farben gewählt (rot, gelb und 
violett). Jede dieser Farben besitzt eine Wahrscheinlichkeit von 20 %. Die 
Farbe grün hat eine Wahrscheinlichkeit von 40 %. 


Verändern Sie das FARBPUNKTE-Programm wie folgt: 


10 REM ...BLUMEN - FARBPUNKTE... 
ben 


300 V = INT (30 & RND (13) + 10 


500 zZ = INT (100 & RND (1)) + 1: REM 1/100 
510 COLOR= (7 < = 20) #1 + (Z > ZOANDZ< =40) #13 + (Z > 40 AND Z 
x =60) 83 + (2 >60) 84 


Speichern Sie dieses Programm als BLUMEN. 


Beobachten Sie, wie die Blumen den Bildschirm bedecken. Um sicherzu- 
stellen, daß die Blumen nicht den Himmel bedecken, haben wir die V-Ko- 


ordinate begrenzt. Dadurch erscheinen keine Punkte oberhalb der Koordinate 
V = 10 (siehe auch Zeile 400 in obigem Listing). 
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Farbige Linien 


Der Unterschied zwischen dem Zeichnen von Punkten und dem Zeichnen 
von Linien ist folgender: für Punkte werden zwei Koordinaten benötigt, für 
Linien müssen beide Endpunkte angegeben werden. Da wir nur horizontale 
oder vertikale Linien zeichnen lassen, ist die Angabe der Endpunkte einfach. 


Bei dem Befehl HLIN werden die Spalten angegeben, wo die Linie beginnt 
bzw. endet. Weiter muß die vertikale Entfernung vom oberen Rand des Bild- 
schirms festgesetzt werden. HLIN 10,20 AT 5 ergibt eine horizontale Linie 
in Zeile 5, die von Spalte 10 bis Spalte 20 verläuft. VLIN 10,20 AT 5 ergibt 
eine vertikale Linie in Spalte 5; Sie reicht von Zeile 10 bis zur Zeile 20. 

Im folgenden Programm werden Linien statt Punkte gezeichnet. Es baut auf 
den bisher gezeigten Programmen auf. Das Programm wählt die Endpunkte 
selbst aus und bestimmt, ob die Linie horizontal oder vertikal verläut. 
Außerdem wird die Farbe der Linien und die Zeitverzögerung zwischen dem 
Zeichnen zweier Linien gewählt. 

Ändern Sie das FARBPUNKTE-Programm wie folgt ab: 


10 REM ..„FARBIGE LINIEN-FARBFUNKTE 
11: 


INT (40 & RND (19) 
INT (40 % RND (19) 





400 vi INT (40 & RND (1)) 

450 v2 INT (40 % RND (19) 

600 D= INT (2x RND (1)): REM D =O (HLINI; =1 (VLIN) 
#50 IF D= 0 THEN HLIN H1,H2 AT VI 

60 IF D= 1 THEN VLIN V1,V2 AT Hi 


Speichern Sie das Programm als FARBIGE LINIEN und starten Sie es. 
Variieren Sie einige Parameter. Wie wird die Anzahl der Farben begrenzt 
(Zeile 500)? 

Die folgenden Änderungen des Programms FARBIGE LINIEN ermöglichen 
es, die Länge der Linien zu begrenzen. 


10 REM ...LAENGE LINIEN-FARBIGE LINIEN... 

11: 

20 HL 20: REM MAXIMUM HLIN LAENGE 

130 VL 10: REM WVLIN 

360 IF ABS (H2 - Hi) > HL THEN 350: REM NOCH EINMAL — ZU LANG 
460 IF ABS (V2 - Vi) > VL THEN 450: REM NOCH EINMAL — ZU LANG 


Speichern Sie dieses Programm als LAENGE LINIEN. 


Das Programm kann so variiert werden, daß der Bildschirm mit kurzen verti- 
kalen Linien ausgefüllt wird. Dazu müssen lediglich die horizontalen Linien 
eliminiert werden, was durch Änderung von Zeile 600 geschieht: 


600D=1. 
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Noch interessanter wird das Programm, wenn wir es interaktiv gestalten. Bis 
jetzt wurden alle Variablen vom Programm selbst bestimmt. Es ist leicht da- 
hingehend zu verändern, daß die Variablenwerte über die Tastatur eingelesen 
werden. Machen Sie folgende Änderungen am Programm LAENGE LINIEN: 


10 REM „..EINGABE FARBE - LAENGE LINIEN... 

11: 

150 CL = 1: REM ANFANGSFARBE 

210 PRINT "DRUECKE ESC FUER PROGRAMMENDE ..."; 

500 Z$ = "ASDFGHJKLZXCVENM" 

510 GOSUB 1000: REM UEBERPRUEFE TASTENDRUCK 

520 IF Z THEN CL = 7 - 1: REM NEUE FARBE BEI TASTENDRUCK 
530 COLOR= CL 
800 Z$ = CHR$ (27): REM UEBERPRUEFE,OB ESC GEDRUECKT 
810 GOSUB 1000 

820 IF zZ = O THEN 300 

900 END 

GaAlH 


992 REM % UEBERFRUEFE,OR TASTEN VORGESEHEN 
993 REM ENTRY: Z$ TEXT,GIBT VERWENDETE TASTEN AN 


994 REM EXIT: 2 0 (KEINE ZUORDNUNG) UND TASTENDRUCK (WENN VORHANDEN) 
NICHT GELOESCHT 


995 REM z J (J’TER ZEICHEN IN Z$) UND TASTENDRUCK 
999 : 


1000 Z = 0: REM SETZE FLAG KEINE ZUORDNUNG 

1010 Zi = PEEK ( - 16384) - 128: REM LESE TASTENDRUCK 

1020 IF Zi < O THEN RETURN : REM KEINE TASTE GEDRUECKT 

1030 IF LEN (Z$) = O THEN RETURN : REM KEINE ZEICHEN VORHANDEN 

1040 FOR 72 = 1 TQ LEN (Z#) 

1050 IF Zi = ASC ( MID®s (7$,72,1)) THEN Z = 72: GET Zi$: REM ZUORDNUN 
G ERLEDIGT-TASTENDRUCK GELOESCHT 

1050 NEXT 

1070 RETURN 


GELDESCHT 


Speichern Sie dieses Programm als EINGABE FARBEN. Auf dem Bildschirm 
erscheinen nur rote Linien. Drücken Sie, während das Programm abläuft, 
einige der Tasten in den beiden unteren Reihen. (A bis L oder Z bis M.) 
Jedes Betätigen einer Taste ändert die Farbe der ausgedruckten Linien. Wir 
haben jeder Taste eine der APPLE-Farben zugeordnet (Zeile 500). Die Zu- 
ordnung ist natürlich völlig beliebig. Als Zuordnungsschema haben wir die 
Reihenfolge der Farben im Regenbogen benutzt. Ebenso gut kann jedes 
andere Schema benutzt werden. 

Das Programm erhält die Variablenwerte über die Tastatur. Die Zahlenwerte 
können während des Programmablaufs direkt geändert werden. Mit diesem 
Prinzip können weitere Änderungen vorgenommen werden. Wir bestimmen 
die Länge der horizontalen Linien über die Tasten 1 bis 9, und die vertikalen 
Linien mit Hilfe der Tasten Q bis 0. Die Tasten auf der linken Seite der 


Tastatur produzieren kurze Linien. Die Tasten auf der rechten Seite ergeben 
längere Linien. 
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Ändern Sie EINGABE FARBEN wie folgt: 


10 REM .. „EINGABE LAENGEN-EINGABE FARBEN... 

Al: 

310 Z$ = "123456789" 

320 GOSUB 1000 

530 IF Z THEN HL = 2 # Z: REM NEUE HLIN-LAENGE,WENN TASTE GEDRUECKT 

340 z2Z=1-2% INT (2% RND (1): REM +1, -1 

350 H2 =H1 + Z # HL: REM + OR - HL 

360 IF H2 < O0 OR H2 > 39 THEN H2 = Hi - Z & HL: REM - ODER + „WENN AUS 
SERHALR DES VORGESEHEN INTERVALLS 

410 7% = "QWERTYUIO" 

420 GOSUR 1000 

430 IF Z THEN VL = 2 & Z: REM NEUE VLIN-LAENGE,WENN TASTE GEDRUECKT 

440 z=1-2% INT (2% RND (1)): REM +1, —1 

450 V2 = Vi + Z & VL: REM + OR - VL 

460 IF V2 < O OR V2 > 39 THEN V2 = Vi - Z % VL: REM - ODER + „WENN AUS 
SERHALB DES GUELTIGEN BEREICHS 


Speichern Sie dieses Programm unter dem Namen EINGABE LAENGE. Es 
macht sehr viel Freude, mit dem Programm interaktiv zu arbeiten, denn so 
besteht eine unmittelbare Kontrolle über das, was der Computer zeichnet 
und auf dem Bildschirm demonstriert. Wichtig beim Entwerfen von Program- 
men ist deshalb die Interaktivität, denn das Spielen mit interaktiven Pro- 
grammen bereitet dem Benutzer mehr Spaß. 

Die Farbpunkte, die bei der LO-RES-Grafik auf dem Bildschirm erscheinen, 
sind nicht exakt quadratisch. Die waagerechte Ausdehnung ist größer als die 
senkrechte. Dies folgt aus der Struktur der LO-RES-Hardware. Aus dem 
gleichen Grunde sind vertikale Linien etwas dicker und kürzer als horizontale 
Linien, obwohl die Längenvariablen bei beiden den gleichen Wert haben. 

Wie leicht zu erkennen ist, können in diesem Programm durch Variation von 
Parametern viele weitere interessante Effekte erzielt werden: Die Anzahl der 
Farben kann begrenzt werden, oder die horizontalen und vertikalen Längen 
können auf andere Art und Weise den Tasten zugeordnet werden. 

Der nächste Schritt ist das Zeichnen von Rechtecken. Dabei zeichnen wir zu- 
erst eine Linie und geben an, wie weit und in welche Richtung die Linie ver- 
breitert werden soll. Das letzte Programm dieses Abschnitts zeichnet farbige 
Rechtecke. Ändern Sie EINGABE LAENGE wie folgt: 


10 REM ...EINGABE RECHTECKE-EINGABE LAENGE 

11: 

650 IF D= 0 THEN FOR Z = vi TO v2 STEP SGN (V2 - Vi}: HLIN H1,H2 AT Z 
: NEXT 

&60 IF D = 1 THEN FOR Z = Hi TO H2 STEP SGN (H2 - Hi): VLIN V1,V2 AT Z 
: NEXT 


Speichern Sie dieses Programm als EINGABE RECHTECKE. 


Mit den Tasten 1 bis 9 kann die Breite der Rechtecke variiert werden, die 
Tasten Q bis O ändern die Höhe und die Tasten A bis M die Farben. Wir 
sehen daher einen direkten Zusammenhang zwischen dem Betätigen der 
Tasten und der Bildschirmwiedergabe. 
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Weitere Farbprogramme 


Hier stellen wir weitere Möglichkeiten vor, den Bildschirm farbig zu gestal- 
ten. Zuerst zeigen wir ein Programm zum Zeichnen eines farbigen Randes. 
Dies ist nützlich, um die Aufmerksamkeit auf die Bildschirmwiedergabe zu 
lenken. Das Programm erzeugt einen farbigen Rand von der Breite einer 


Zeile um den Bildschirm herum. Die Farbe des Randes wird in Zeile 500 fest- 
gelegt. 


Speichern Sie dieses Programm als RANDI. 


Wir können RANDI dahingehend ändern, daß es Ränder verschiedener Farbe 
zeichnet, die aufeinander folgen. Hier sind beide Programme. 


10 REM ...BORDER... 
11: 

100 GR : HOME 

500 COLOR= 1 

600 HLIN 0,39 AT O 
610 VLIN 1,39 AT 39 
620 HLIN 38,0 AT 39 
630 WVLIN 58,1 AT © 


Durch Löschen der Zeilen 600 bis 630 und Hinzufügen der folgenden Zeilen 
erhalten wir ein allgemeiner verwendbares Programm. 


10 REM ...RAND2 - RANDI... 
11: 


600 Z = 0: REM 0 PUNKTE VOM RAND AUS 

510 GOSUB 900 

820 END 

81 : 

892 REM 4 LOW-RES RAND # 

893 REM EINGANG: Z ANZAHL DER FUNKTE VOM ReND AUS 


894 REM FARBE GESETZT 
899 : 


900 21=39-7 

910 HLIN 2,Z1 ATZ 

920 WVLINZ + 1,21 AT Zi 
930 HLIN 21 - 1,2 AT 23 
940 VLIN ZI - 1.2+1 ATZ 
950 RETURN 


Speichern Sie dieses Programm als RAND2. 


Frage 6: Wie muß RAND2 geändert werden, damit die Umrandung des 
Bildschirms drei Zeilen nach innen eingerückt wird? 
Frage 7: Wie lauten die Befehle zum Zeichnen einer doppelten Umrandung, 


wobei sich zwischen den beiden Rändern noch freier Raum be- 
findet? 


Ein Programm, das in der Lage ist, den Bildschirm zu säubern (d.h. schnell 
und fließend mit Farbe auszufüllen), kann sehr nützlich sein. Das folgende 
Programm erreicht dies durch das Zeichnen horizontaler Linien. 
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10 REN „..WASCHEN... 
it: 

109 GR : HOME 

500 COLOR= 1 

600 FOR Z = 0 TO 59 
610 HLIN 0,39 AT Z 
620 NEXT 


Speichern Sie dieses Programm als WASCHEN. 


Um Streifen in wechselnder Farbe zeichnen zu lassen, wird das Programm 
WASCHEN wie folgt geändert: 


10 REM ..„.STREIFEN -— WASCHEN 

11: 

500 Ci = 3: REM ERSTE FARBE 

510 C2 = 7: REM ZWEITE FARBE 

520 C = Ci: REM AKTUELLER FARAMETER 

605 COLOR= C:C = Ci + C2 - C: REM GEHE ZU ANDERER FARBE UEBER 


Das WASCHEN-Programm stellt eine Hintergrundfarbe zur Verfügung. Über 
diesen Hintergrund können wir andere Linien, Punkte und sogar Bilder zeich- 
nen, was wir im nächsten Kapitel zeigen. Die Hintergrundfarbe im WASCHEN- 
Programm kann durch Änderung der Zeile 500 gewechselt werden. 


Ein weiterer Weg, den Bildschirm farbig auszufüllen, ist das Zeichnen von 
Streifen in Spiralenform: 


10 REM ...SPIRALE... 
tale 
100 GR : HOME 
120 HO = 19: REM H-FOS DES ZENTRUMS 
150 VO = 19: REM V-FOS 
140 N = 19: REM ZAHL DER SPIRALWINDUNGEN 
150 P = 1: REM FAUSE ZWISCHEN DEM ZEICHNEN DER SEGMENTE 
200 FOR J=N TO0OSTEF -1 
210 Hi = HO - Ji: REM LINKER RAND DES AKTUELLEN SPIRALARMS 
220 H2 = HO + J + 1: REM RECHTER RAND 
230 v1 = VO - J: REM GBERER RAND 
240 v2 = VO + J +1: REM UNTERER RAND 
300 GOSUR F00 
F10 HLIN H1,H2 AT Vi 
350  GOSUB 900 
I60 VLIN Vi + 1,V2 AT H2 
400 GOSUR 900 
410 HLIN H2 - 1,H1 AT v2 
350 GOSUB 900 
460 VLIN V2 - 1,V1 + 1 ATHI 
490 NEXT 
820 END 
892: 
SIT REM x WAEHLE FARBE FUER NAECHSTES SEGMENT,DANN ZEITVERZDEGERUNG* 
899 : 
F06 COLOR= 1 
910 FOR zZ = 1 TO F: NEXT 
990 RETURN 
‘ 
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Speichern Sie dieses Programm als SPIRALE. 


Wir können die Zeichengeschwindigkeit verlangsamen, um das Entstehen der 


Spirale besser beobachten zu können. Die Zeitverzögerung wird in Zeile 150 
verändert: 


150 P = 200 


Frage 8: Wie muß SPIRALE geändert werden, damit jeder Spiralarm in 
einer anderen Farbe gezeichnet wird? 


Speichern Sie das Programm mit dieser Änderung als SPIRALEI. 


Hier ist eine weitere Variation von SPIRALE. Sie bewirkt, daß die Spirale 
sich schließt und anschließend wieder öffnet: 


10 REM ...SFIRALE2-SFIRALE1... 
11: 


190 PRINT : FRINT "DRUECKE ESC ZUM BEENDEN DER GRAFIK.."; 


500 COLOR= 0: FOR J = 0 TON 
510 H1 = H0 - )J 

Ss20 H2=HO +J +1 

530 v1 = VO -J 

540 v2? =VO+J+1 


s00 GOSUB 910 

610 WVLIN V1 + 1,V2 - 1 AT HI 

650 GOSUR 910 

660 HLIN H1,H2 - 1 AT v2 

700 GOSUR 910 

710 VLIN V2,Vi1 + 1 AT H2 

750 GOSUR 910 

760 HLIN H2,H1’AT VI 

790 NEXT 

800 IF FEEK ( - 16384) < 128 THEN 200 


810 GET Z$: IF 2$ < >» CHR$ (27) THEN 200: REM ESC NICHT GEDRUECKT 


Speichern Sie das Programm als SPIRALE2. Schauen Sie, was das Programm 
auf dem Bildschirm bewirkt. 


Mit folgender Änderung von SPIRALE2 wird die Größe der Spirale redu- 


ziert. Außerdem kann der Mittelpunkt der Spirale zu anderen Stellen des 
Bildschirms bewegt werden. 


10 REM ...SPIRALES-SFIRALE2,.. 
11: 

120 HO 
130 vo 
140N=4 


10 
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Speichern Sie dieses Programm als SPIRALE3. 


Wir wollen nun zwei Spiralen darstellen, die sich gleichzeitig öffnen und 
schließen. Dazu muß das folgende Programm zu SPIRALE3 hinzugefügt wer- 


den. (Dies ist zwar eine langwierige Arbeit, ergibt aber einen sehr wirkungs- 
vollen Effekt.) 
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10 REM ..ZWEI SPIRALEN-SPIRALES... 


122 HC 


= 29: REM ABSTAND ZU SPIRALE 2 
132 VC = vo 
212 HA = HC - J 
222HB=SHC+J +1 
2532 VA=VC-J 
Z42VB=VC+J +1 


3512 HLIN HA,HB AT VA 

362 VLIN VA + 1,VB AT HB 

412 HLIN HB - 1,HA AT VR 

462 VLIN VB - 1,VA + 1 AT HA 


512 HA = HC - J 
S2Z2HB=HOC+J +1 
S52VA=VC-J 
S42VB=VC+J +1 


612 WLIN VA + 1,VR - 1 AT HA 
662 HLIN HA,HB - 1 AT VR 

712 WVLIN VRB,VA + 1 AT HB 

762 HLIN HB,HA AT VA 


Speichern Sie das Programm unter dem Namen ZWEI SPIRALEN. 

Mit etwas Vorstellungskraft können diese Effekte als zwei Augen gesehen 
werden. Vielleicht benötigt einer unserer Leser ein dreiäugiges Monster zum 
Verschönern seines Programms! 


Kombination von Klang und Farbe 


Wir wollen nun eines der Farbprogramme zusätzlich mit Klangeffekten aus- 
statten. Das folgende Programm spielt eine auf- und absteigende Folge von 
Tönen und zeigt die Spirale, die sich entsprechend öffnet und schließt. 


Ändern Sie SPIRALE2 wie folgt: 


10 REM „..SPIRALE KLANG-SPIRALE2... 
11: 
180 WD = 10 
ZOW =N+1-J 
930 GOSUR 13000 


Verbinden Sie das Programm mit KLANG EINHEIT und speichern es unter 
dem Namen SPIRALE KLANG. 

Durch eine zusätzliche Änderung erhalten wir ein Programm, das den Spieler 
völlig verblüfft. Die Töne sind dem Rhythmus der Spirale nicht mehr ganz 
angepaßt, d.h. beide beginnen und enden nicht mehr gleichzeitig. 


10 REM ...LUSTIGE SPIRALE - SPIRALE KLANG... 

il: 

170 CP = 1:C7 = .25 

920 WP = INT (CP) 

940 CP =CP + C7 

950 IF CP > N + 2.25 THEN CZ = - .25: GOTO 940: REM ABWAERTS 
960 IF CP < 1 THEN CZ = .25: GOTO 940: REM AUFWAERTS 
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Es bieten sich eine Reihe weiterer Experimente an. Wir können LO-RES- 
Grafikeffekte zum ORGEL-Programm hinzufügen. Zum Beispiel: Jedesmal 
wenn wir eine Note drücken, erscheint ein farbiger Punkt. Oder wir pro- 
grammieren spezielle Grafikeffekte, falls eine der Ziffern gedrückt wird. Das 
Drücken der Taste 1 könnte ein Bedecken des Bildschirms mit roter Farbe 
hervorrufen, bei Taste 2 ist die Farbe orange, usw. Wird eine weitere zufällige 
Taste gedrückt, so könnte eine Spirale erscheinen. 

Andererseits sind auch einfache Effekte denkbar, wie das bloße Wechseln 
einer zufällig bestimmten Farbe bei Betätigen der Taste 1. 


Wir sehen also, es gibt eine große Anzahl von Möglichkeiten, Klänge und 


Farbe zu kombinieren. Auf diese Weise wird der Einsatz von beiden wir- 
kungsvoller und interessanter. 


LO-RES-Grafik auf dem ganzen Bildschirm 


Jedes unserer bisherigen Programme verwendete ein vier Zeilen großes Text- 
fenster am unteren Ende des Bildschirms. Mit den folgenden beiden Pro- 


grammzeilen wird das Textfenster gelöscht. Wir erhalten acht zusätzliche 
Grafikzeilen. 


10 REM -„.VOLLE LO-RES GRAFIK 
11: 
100 GR : FOKE - 18302,0: REM 


SETZE LO-RES GRAFIK(GANZER BILDSCHIRM) 


110 COLOR= 0: FOR Z = 40 TO 47: HLIN 0,39 AT Z: NEXT : REM LOESCHE DIE 


8 UNTERSTEN ZEILEN 


Zusammenfassung von Kapitel 2 


Dieses Kapitel stellte die LO-RES-Grafikbefehle vor und demonstrierte einige 


einfache Anwendungen. Die Programmme WASCHEN, RAND und SPIRALE 
sind für eigene Programme des Lesers besonders nützlich. 
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Lösungen zu Kapitel 2 


Frage 1: 500 COLOR = 11 
Frage 2: Folgende Zeilen sind zudem FARBPUNKTE-Programm hinzuzufügen: 


10 REM ...GELBE STERNE-FARBFUNKTE... 
11: 

400 V = INT (20 #& RND (19) 

500 COLOR= 15 

700 P = 1000 


Frage 3: Die Farbe wird zu violett bestimmt. Die H- und V-Koordinate werden so be- 
stimmt, daß sie zwischen 15 und 24 variieren. 


10 REM ...VIOLETTES RECHTECK-FARBFUNKTE... 
11: 

300 H = INT (10 %& RND (1) + 15 

400 V = INT (10 & RND (1) + 15 

500 COLOR= 3 

700 P = 1000 


Frage 4: 500 COLOR = 6 
510 IF RND(1) .5 THEN CLOLOR = 9 
(Die Zahl .5 gibt jeder Farbe eine Chance von 50 %.) 


Frage 5: 500 COLOR =6 
51OIFRND(1) .25 THEN COLOR = 9 
(Durch die Zahl .25 erhält die Farbe orange nur eine Chance von 25 %.) 


Frage 6: 6002=3 
Frage 7: 62027=2 
630 GOSUB 900 
Frage 8: 900 COLOR = INT(16*RND(1)) 
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Kapitel 3 
Bilder in LO-RES-Grafik 





Dieses Kapitel behandelt speziell das Erstellen von Bildern und Symbolen in 
LO-RES-Grafik. Die geschaffenen Bilder können gespeichert und in späteren 
Programmen wiederverwendet werden. Wir werden einige Bilder vorstellen 
und zeigen, wie sie zu gebrauchen sind. Anschließend demonstrieren wir, wie 
Bilder hergestellt, verändert und gespeichert werden. Zu guter Letzt zeigen 
wir Programme, die verschiedene Bilder miteinander verbinden und verän- 
dern können. Der Grundbaustein eines Bildes ist der im letzten Kapitel ein- 
geführte Farbpunkt. Alle Bilder in LO-RES-Grafik sind aus diesen viereckigen 
Farbpunkten zusammengesetzt. Ihre Qualität entspricht deshalb eher der von 
Kinderzeichnungen oder der von Bildern, die mit Kreuzstichen gestickt wur- 
den. Besonders Kinder finden Bilder in LO-RES-Grafik sehr reizvoll. 


BILD EINHEIT 


Das folgende Programm BILD EINHEIT gibt uns die Möglichkeit, Bilder auf 
dem Fernsehschirm darzustellen. Wir bestimmen lediglich ein Bild, seine Po- 
sition und Farbe; das Programm erledigt die ganze Arbeit für uns. Um die 
Benutzung des Programms anfangs etwas zu erleichtern, haben wir die Buch- 
staben des Alphabets und die Zahlen 1 bis 9 bereits in das Programm aufge- 
nommen. Später werden wir zeigen, wie zusätzliche Bilder hergestellt, ge- 
speichert und auf dem Monitor dargestellt werden. Wie in dem folgenden 
Listing leicht zu erkennen ist, hat das Setzen von Leerstellen entscheidenden 
Einfluß auf das Aussehen der Buchstaben und Zahlen. Beim Eintippen des 
Programms ist deshalb besonders für den ‚Bildteil‘ große Aufmerksamkeit 
erforderlich, damit die Wiedergabe der Zeichen richtig erfolgt. 
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10 REM -..BILD EINHEIT-NEXTDATA EINHEIT.. 

lm: 

12 REM BILD UNTERFROGRAMME + BILD BIBLIOTHEK 

13 : 

14981 

14982 : 

14983 REM * DRUCKE BILD IN LOW-RES # 

14984 REM BEGINN: XH H-POS DER OBEREN LINKEN ECKE 


14985 REM XV V-FOS 

14986 REM XA HORIZONTALE BREITE 

14987 REM XR VERTIKALE HOEHE 

14988 REM LESE DATA-ANWEISUNGEN FUER ZEICHEN 

14989 REM xC() WAEHLT DIE FARBEN 

14990 REM GRAFIKFORMAT WIRD GEWAEHLT 

14991 REM AUSGANG: 7% © BILD IST FASSEND 

14992 REM 1 FEHLER-BILD NICHT PASSEND 

14999 3 

15000 IF XH + XA > 40 OR XV + XR > 48 THEN Z% = 1: RETURN : REM FEHLER -— BIL 


D NICHT PASSEND 
15010 Z1 = XV: REM ERSTE V-FOS 
15020 REM INITIALISIERUNG UNNOETIG- ERSTE ANGABE UEBER XC() BEWIRKT "DIM XC 


110)" 

15050 READ Z$: IF Z$ = "-1" THEN 7% = Q: RETURN : REM UEBERFRUEFE OR DURCHG 
EFUEHRT 

15040 FOR Z = 1 TO LEN (Z%): REM DRUCKE JEDES DER 1-9 ZEICHEN 

15050 2% = ASC ( MID$ (28,2,1)) -— 48 

15060 IF 2% > = 1 AND Z% < = 9 THEN COLOR= XC(2%: PLOT XH + Z - 1,21: REM 


DRUCKE FARBFUNKT 
15070 NEXT 
15080 Z1 = Zi + 1: REM NAECHSTE V-FOS 
15090 GOTO 15030 
15092 ; 
15093 REM * LESE ZEICHEN * 
15094 REM EINGANG: Z ZEICHEN # 
15095 REM AUSGANG: XA HORIZONTALE BREITE 


15096 REM XB VERTIKALE HOEHE 
15097 REM SETZE DATA-ZEIGER AUF BILDANFANG 
15099 : 


15100 Z = 20000 + 100 % Z: GOSUR 19000: REM SETZE DATA-ZEIGER 

15110 READ XA,XB: REM DIE ERSTEN BEIDEN DATEN SIND BREITE UND HOEHE 
15120 RETURN 

15191 : 

15192 REM * DRUCKE EIN BILD * 

15193 REM EINGANG: Z BILD # 


15194 REM XH H-POS VON ULHC 

15195 REM XV  V-FOS 

151956 REM FARBEN WERDEN MIT XC() GEWAEHLT 
15197 REM AUSGANG: 7% 0 BILD IST FASSEND 

15198 REM 1 FEHLER-BILD NICHT FASSEND 
15199 : 


15200 GOSUB 15100: REM SETZE DATA-ZEIGER 
15210 6G0TO 15000: REM DRUCKE BILD 

15292 : 

15293 REM 4 ZENTRIERE ZEICHENFOLGE # 
15294 REM EINGANG: X$ TEXT 


15295 REM XV V-POS VON ULHEC 

15296 REM FARBEN WERDEN IN XC() GEWAEHLT 
15297 REM AUSGANG: Z% O BILD PASSEND 

15298 REM 1 FEHLER-BILD NICHT FASSEND 
15299 : 


15300 IF LEN (X$) = O0 THEN RETURN : REM LEERER TEXT 
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155310 IF XS = O THEN XS = 1: REM INITIALISIERE RAUM ZWISCHEN DEN BILDERN 
15320 X1 = - XS: REM INITIALISIERE LOW-RES BREITE 
15330 FOR X = 1 TO LEN (X$) 


15340 zZ = ASC ( MID$ (%$,%X,1)): GOSUB 15100: REM BILD &#S IST IDENTISCH MIT 


ASCII #5 
15350 X1 = X1 + XA + XS: REM NEUE LOW-RES BREITE 
15360 NEXT 
15370 IF X1 > 30 + XS THEN 7% = 1: RETURN : REM FEHLER -— BILD NICHT PASSEND 
15380 XH = 19 - INT (X1 / 2): REM DRUCKE AM LINKEN BILDRAND 
15390 : 


15391 REM 2 DRUCKE ZEICHENFOLGE % 
15392 REM EINGANG: %$ TEXT 


15393 REM XH H-FOS VON ULHC 

15394 REM xV  V-POS 

15395 REM FARBEN WERDEN MIT XC() GEWAEHLT 
15396 REM AUSGANG: XH NEU BERECHNET 

15397 REM 7% © BILD PASSEND 

15398 REM 1 FEHLER-EILD NICHT FASSEND 
15399 : 


15400 IF LEN (X%) = OÖ THEN RETURN : REM LEERER TEXT 


159410 IF XS = 0 THEN XS = 1: REM INITIALISIERE RAUM ZWISCHEN DEN BILDERN 
15420 FOR X = 1 TO LEN (X®) 


15430 Z = ASC ( MIDS (X$,%X,1)): GOSUB 15200: REM 


DRUCKE EIN EILD AUS 
15440 XH = XH + XA + XS: REM BERECHNE NEUE H-FOS 





15520 RETURN 


15450 NEXT 
15460 RETURN 
15492 : 
) 15493 REM + LOESCHE 40X40 BILDSCHIRM MIT EINER FARBE & 
N 15494 REM EINGANG: FARBENSATZ 
ll 15499 : 
Ey 15500 Z = 39: REM  HOEHE 
N 15510 FOR Zi = O0 TO Z: HLIN 0,39 AT Z1: NEXT 
} 


| 24800 DATA 5,7: REM 0 
| 24810 DATA " 111" 

j 24820 DATA "1 Vi 

| 24850 DATA "1 11" 

# 

‚) 

1 


’ 24840 DATA "ı 1 1" 
! 24850 DATA "il 1" 
23 24860 DATA "1 1" 
I | 24870 DATA " 111" 
ih 24880 DATA "-1" 
2 24900 DATA 5,7: REN 1 
1 24910 DATA " 1" 
E 24920 DATA " 11" 
i 24930 DATA “ 1" 
24940 DATA " 1" 
24950 DATA “ 1” 
24960 DATA " 1" 
24970 DATA " 111" 
24980 DATA "-1" 
25000 DATA 5,7: REM 2 
25010 DATA " 111" 
25020 DATA "ı 1" 
P 25030 DATA “ sl 


25040 DATA " 11" 
25050 DATA " 1" 
25060 DATA "1" 
25070 DATA "ill" 
25080 DATA "-1" 
25100 DATA 5,7: REM 
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WA 





25110 
25120 
251302 
25140 
25150 


25150 









t 


DESESENSESE 


25580 
25800 
25510 
25620 
25550 
25840 
23850 
25650 
25870 
25680 
25700 
25710 
25720 
23730 
25740 
25750 
257860 
25770 





DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
para 
DATA 
DATA 
DATA 
DATA 
DATA 


u“ 





& 

vg" 

REM 7 
sag? be 99 In 5 6 
" 1' 
“ g" 
ge 
“on 
vu 
u" 
u" 


5,7: REM 8 
in 

“r 1" 

"4 Pe 

er dr be In 

4 1" 

“4 i" 
at 

u_yn 

5,7: REM ®@ 
hl 

"4 1" 

“4 1" 
SEITErR 

u 1" 

n 1" 
Sub 


25780 
285500 
25510 
25520 
255930 
25540 
25550 
255650 
26570 
25580 
285500 
26610 
28520 
25530 
28540 
28550 
28660 
25670 
28580 
28700 
25710 
25720 
28730 
285740 
26759 
25750 
25770 
25780 
28900 
28810 
26820 
26850 
28840 
25850 
25850 
25870 
26880 
25700 
26910 
265920 
269730 
25940 
26950 
26950 
265970 
25980 
27000 
27010 
27020 
27030 
27040 
27050 
27050 
27070 
27080 
271090 
27110 
27120 
27130 
27140 
27150 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


“un 
S,7: REM 
ne 
wgın 
Re 
nenn 
"111l1" 
are 
it 
“Eu 
5,7: REM 
sc 
iq 
OR a 
Ede 
Aa c 
a4 ie 
"ir 1g“ 
wa 
5,7: REM 
“ijgu 
nn 
nje 

Dom 

a 

Fe 
rt“ 
ee, 
5,7: REM 
“1lll® 
N 
ac 
a 
. 
„1 de 
"11ll" 
ua 
5,7: REM 
"1111l" 
"in 

"in 
“141l" 
vi“ 

un 
U 
u2iR 
5,7: REM 
de 
ja 

ia 
EHBRIC 
un 

au 

nu 

ug" 
5,7: REM 
Be 
won 

ug“ 

un 

“4 gm 
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27160 
27170 
27180 
27200 
27210 
27220 
27230 
27240 
27250 
27260 
27270 
27280 
27300 
27310 
27320 
27330 
27340 
27350 
27360 
27370 
27380 
27400 
27410 
27420 
27430 
27440 
27450 
27460 
27470 
27480 
27500 
27510 
27520 
27530 
27540 
27550 
27560 
27570 
27580 
27600 
27610 
27820 
27530 
27640 
27850 
27660 
27670 
27680 
27700 
27710 
27720 
27730 
27740 
27750 
27760 
27770 
27780 
27800 
27810 
27820 
27830 
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DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


wi 1" 
UTIE 


ug“ 


5,7: REM 


“1 1" 
“1 1" 
"1 1" 
ia 
"| 1" 
"q 1" 
"ı 1" 


ui" 


3,7: REM 


LIE 
gu 
“gu 
gu 
gu 
og" 
uhren 


u" 


6,7: REM 


e 111 
" 1" 
" 1" 
“ 1" 
“ 1" 
“q 1" 
rbb 
._i" 


5,7: REM 


gm 
og" 
4 gu 
nn 
ug" 
1 og" 
1 og" 


un 


4,7: REM 


ne 
Be 
Pe 
Be 
nu 
„iu 
zagad 


“_y" 


7,7: REM M 


Ei 

Dr 1 
im 
ie 


1" 
1" 
1" 
ir 
1" 
1" 
1" 


27840 
27850 
27880 
27870 
27880 
27900 
27910 
27920 
27930 
27940 
27950 
27960 
27970 
27980 
28000 
28010 
28020 
28030 
28040 
28050 
28080 
28070 
28080 
28100 
28110 
28120 
28130 
28140 
28150 
28160 
28170 
28180 
28200 
28210 
28220 
28230 
28240 
28250 
28250 
28270 
29280 
28300 
28510 
28320 
28330 
28340 
28350 
28360 
28370 
28380 
28400 
28410 
28420 
28430 
28440 
28450 
28460 
28470 
28480 
28500 
28510 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


Co 5 IE Ge 
ei. 11 
4 1" 
“1 1" 
vg" 
5,7: REM 
PLHT. 
1 1" 
"1 1" 
“1 1" 
.q 1" 
"4 1" 
a Ni = 
nt 
3,7: REM 
SEREL 
“4 1" 
“4 1" 
I a DI es 
ng" 
nu 
no" 
ng" 
5,7: REM 
111" 
“4 1" 
“i 1" 
"4 1" 
ver Kuh VER Vi 
ge 
FREI" 
wg" 
5,7: REM 
Bin 
"1 1" 
"4 1" 
aan Tm 
ge 
712% 
“| 1" 
ug" 
5,7: REM 
Er 
"| 1" 
nn 
Bere. 
“ 1" 
"1 1" 
SE 
u" 
5,7: REM 
ERRITIn 
“ge 
og" 
ge 
nogu 
og 
wogqu 
nn 
5,7: REM 
1 1" 


28520 DATA "1 1% 28820 DATA "1 1z 








28550 DATA "1 1" 28830 Data "1 1" 
28540 DATA "1 1" 28880 DATA " 1" 
28550 Data "ı 1" 28850 DATA " 1 1“ 
28560 DATA "I 1" 28850 DATA "1 1" 
28570 DATA " 111" 28870 DATA "1 1" 
28580 DATA "-1" 28880 DATA "-1" 
28600 DATA 5,7: REM V 28900 DATA 5,7: REM Y 
28610 Data "I 1" 28910 Data "1 1" 
28620 DATA "1 1" 28920 DATA "I 1” 
DATA "1 1" 28930 DATA "1 1" 
DATA "1 1" 289350 DATA " 1" 
Data "ı ie 28950 Data " 1" 
Data" ı 1" 28960 DATA " 1" 
Data" 1" 289870 DATA " 1" 
28680 DATA 293980 DATA "-1" 
28700 DATA MW :9000 DATA 5,7: REM Z 
DATA ® 2°010 DATA " 1" 
DATA 27020 DATA "i11ll“ 
DATA 29030 Data" 1" 
DATA 29040 DATA" 1" 
DATA 29050 DATA " 1" 
28760 DATA 27060 DATA " 1" 
28770 DATA 29070 DATA "1" 
28780 DATA 27080 DATA "illli“ 


28800 DATA s 
28810 DATA "1 13 





x 29090 DATA "-1" 


Geben Sie dieses Programm ein und speichern Sie es als BILD EINHEIT. 


Darstellen von Buchstaben und Zahlen 


Für die Wiedergabe eines LO-RES-Bildes sind drei Schritte erforderlich: 


1. Angabe eines bestimmten Bildes 

2. Festlegung der Bildschirmposition 

3. Wahl einer Farbe. 

Mit dem Programm BILD EINHEIT ist es sehr einfach, Zahlen oder Buch- 
staben an verschiedenen Stellen des Bildschirms darzustellen. Wir geben ein- 
fach den Inhalt einer Textvariablen (X$) an, bestimmen den Abstand zum 
oberen Bildschirmrand (XV) und entscheiden, ob der Text in der Zeilen- 
mitte oder am Rand stehen soll. Natürlich wählen wir auch eine Farbe 
(XC(1)). Soll der Text nicht in der Zeilenmitte stehen, muß zusätzlich ange- 
geben werden, wo der Text beginnt. Dazu wird die Variable XH bestimmt, 
die den Abstand vom linken Bildschirmrand angibt. 

Im nächsten Abschnitt erläutern wir, wie die Buchstaben farbig dargestellt 
werden. In den DATA-Anweisungen unseres Programms taucht sehr oft die 
‘1° auf. Wir haben alle Zahlen und Buchstaben so entworfen, daß sie nur in 
einer Farbe dargestellt werden können. Die Farbe haben wir aber in diesem 
Programm nicht festgelegt. Wenn wir nun eines dieser Zeichen benutzen, 
bestimmen wir die Farbe, indem wir eine der sechzehn APPLE-LO-RES- 
Farben den ‘Einsen‘ in den DATA-Anweisungen zuordnen. Wenn wir zum 
Beispiel die Farbe hellgrün möchten, geben wir den Befehl XC(1) = 12 ein. 
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Damit wird die APPLE-Farbe Nr. 12 den ‘Einsen‘ in den DATA-Anweisun- 
gen zugeordnet. Wollen wir die Farbe rosa haben, lautet der neue Befehl 
XC(1) = 11. Später werden wir zeigen, wie Bilder entworfen werden, die aus 
mehr als einer Farbe bestehen. 


Wir zeigen nun einige Möglichkeiten, wie mit dem Programm BILD EINHEIT 
Wörter dargestellt werden. 


Fügen Sie folgende Zeilen zu BILD EINHEIT hinzu und starten Sie das Pro- 
gramm: 


100 GR: HOME 

110 X$ = “KATZE“ 
120 XV = 10 

130 XC(1)=3 

140 GOSUB 15300 
999 END 


Der Text wird in der Farbe grün gedruckt (Zeile 130), und das obere Ende 
der Buchstaben ist in Reihe 10 (Zeile 120). Das Wort “KATZE“ steht in der 


Mitte des Bildschirms. Dies ist der Fall, wenn das Unterprogramm mit Zeile 
15300 aufgerufen wird. 


Fügen Sie die folgenden Zeilen hinzu und starten Sie das Programm erneut: 


145 : 

150XH =5 
160 XV = 20 
170 XC(1)=8 


180 GOSUB 15400. 


Diese zusätzlichen Zeilen haben einige Variablen verändert. Da X$ nicht ge- 
ändert wurde, wiederholt sich die Ausgabe des Wortes “KATZE“. Versuchen 
Sie das Programm so abzuändern, daß Ihr Name in mehreren Farben und an 
verschiedenen Stellen auf dem Bildschirm gedruckt wird. Was geschieht, 
wenn die Worte sich überlappen? 

Es ist wichtig, daß alle Variablen zur Positionierung eines Textes auf dem 
Bildschirm spezifiziert sind. Erfolgt der Eintritt in das Unterprogramm in 
Zeile 15300, wird der Text in die Mitte der angegebenen Zeile gerückt. 
Rufen wir das Unterprogramm erst mit Zeile 15400 auf, wird der Text nicht 
automatisch in die Zeilenmitte plaziert. In diesem Fall müssen wir angeben, 
in welcher Spalte der Text beginnen soll (siehe Zeile 150). 


Frage 1: Was wird auf dem Bildschirm dargestellt, wenn wir BILD EIN- 
7 7 HEIT mit dem folgenden Programm verbinden? 

100 GR:HOME 

110 X$ = “KATZE“ 

120 XV =20 

130 XCA)=3 

140 GOSUB 15300 

150 XC(1)= 13 

160 GOSUB 15300 

999 END 





Frage 2: Was geschieht, wenn die Zeile 
145 GR: HOME 
zu diesem Programm hinzugefügt wird? 


Als hübsche Zugabe enthält BILD EINHEIT ein Unterprogramm zum Löschen 
des Bildschirms mit einer Farbe nach Wahl. 


Fügen Sie die folgenden Zeilen zum jetzigen Programm hinzu, und starten 
Sie es erneut: 


102 COLOR = 5 
104 GOSUB 15500 


Hin und wieder ist es wünschenswert, die Variable X$ vom Tastenfeld ein- 
zulesen anstatt sie im Programmlisting festzusetzen. Wir wollen zum Bei- 
spiel nach einem Namen fragen und diesen anschließend in großen Lettern 
darstellen. Die Buchstaben sind sehr groß; deshalb kann es sein, daß manche 
Namen nicht auf den Bildschirmbereich passen. Ein Unterprogramm von 
BILD EINHEIT überprüft die Länge der Namen. Auf diese Weise kann ver- 
mieden werden, daß ein Name am Ende abgeschnitten wird. 

Beim Eintritt ins Unterprogramm in Zeile 15300 (Plazierung in der Bild- 
schirmmitte), prüft das Unterprogramm die Länge des Textes. Dieser wird 
nur dann ausgedruckt, wenn er in den Bildschirmbereich hineinpaßt. Falls 
dies nicht zutrifft, wird der Text nicht ausgedruckt. Wenn wir aber erst in 
Zeile 15400 ins Unterprogramm eintreten, wird der Text am Ende abge- 
schnitten, wenn er zu lang ist. 

Vor dem Verlassen des Unterprogramms wird eine Variable Z% bestimmt. 
Diese Variable zeigt an, ob der Text in den Bildschirmbereich hineinpaßt. 
Ist Z% gleich 0, dann ist der Text passend und wird ausgedruckt. 2% gleich 1 
bedeutet, daß der Text zu lang ist und nicht auf dem Bildschirm erscheint 
(bei Eintritt in Zeile 15300). Bei Eintritt in Zeile 15400 werden nur die- 
jenigen Buchstaben erscheinen, die innerhalb des Bildschirmbereichs liegen. 
Das folgende Programm überprüft die Variable Z%. Fügen Sie folgende Zei- 
len zu BILD EINHEIT hinzu: 


100 GR: HOME 

110 PRINT “GEBEN SIE BITTE IHREN RUFNAMEN EIN!“; 
120 INPUT X$ 

130 XV = 10: XC(1) = 3 

140 GOSUB 15300 

150 IF Z% = 0 GOTO 200 

160 PRINT “DAS WAREN ZU VIELE BUCHSTABEN!“ 

170 PRINT “BENUTZE BITTE WENIGER BUCHSTABEN.“ 
180 GOTO 110 

200 .... Fortsetzung des Programms ... 


Starten Sie dieses Programm. 
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Es bleibt zu bemerken, daß wir ein klein wenig auf das Erscheinen eines Je 
den Buchstabens warten müssen. Das Ausdrucken dieser Art von Buchstaben 
dauert länger als bei gewöhnlichen Textbuchstaben (wie z.B. im Programm- 
listing). Die Buchstaben und Zahlen im Textformat werden mittels der 
internen Logik des Rechners sehr schnell erstellt. Dagegen müssen die Zei- 
chen, die wir hier vorgestellt haben, Schritt für Schritt in einem BASIC-Pro- 
gramm aufgebaut werden. Dies dauert natürlich etwas länger. 


Vorschläge für Spiele mit Buchstaben 


Wir wollen nun zwei Spiele vorschlagen, die sich besonders eignen, die Fähig- 
keiten von Anfängern zu schulen. Sie helfen, das Erkennen von Zahlen zu 


lernen, und machen Leseanfänger besser mit der Tastatur des Computers 
vertraut. 


Im ersten Spiel tippt der Spieler einen Buchstaben. Das Programm druckt 
dieses Zeichen mit der LO-RES-Grafik auf dem Bildschirm aus. Ein Fortge- 
schrittener kann dazu die Namen der Buchstaben nennen, wenn diese auf 
dem Monitor erscheinen. Auf diese Weise betreut er während des Spiels den 
beginnenden Leser und beschleunigt den Lernerfolg. 

Beim zweiten Spiel wird zuerst eine Zahl ausgedruckt. Der Spieler wird an- 
gewiesen, die entsprechende Taste zu drücken. Dabei sollten alle anderen 
Tasten vom Programm ignoriert werden, um unnötige Verwirrung zu Vet- 


meiden. Wird die richtige Taste gedrückt, gibt der Rechner einen Ton von 
sich, und die nächste Zahl erscheint. 


Bemerkungen zur Zeilennumerierung 


Die DATA-Anweisungen in BILD EINHEIT, die unsere Buchstaben und Zah- 
len enthalten, beginnen in Zeile 24800. Beim Entwerfen der Zeichen und Zu- 
ordnen der entsprechenden Zeilennummern benutzten wir folgende Regeln. 
Jedes Zeichen beginnt bei einer Zeilennummer, die ein Vielfaches von 100 
ist. Hier steht eine DATA-Anweisung für die Länge und Höhe des Zeichens, 
sowie eine REM-Anweisung, die uns angibt, um welches Zeichen es sich 
handelt. Jedes Zeichen endet mit : DATA “—- 1“. 

Durch diese spezielle Form der Zeilennumerierung erhalten wir einen sehr 
einfachen Zugang zu den einzelnen Zeichen. Deshalb ist es wichtig, dies gut 
zu verstehen. Zuerst subtrahieren wir von der Zeilennummer, mit der ein 
Zeichen beginnt, die Zahl 20000. Das Ergebnis ist eine Zahl, die genau das 
Hundertfache des ASCII-Wertes des betreffenden Zeichens beträgt. Zum Bei- 
spiel: der Buchstabe A beginnt in Zeile 26500. Subtrahieren wir 20000 von 
dieser Zahl, erhalten wir 6500. Dies ist genau das Hundertfache des ASCI- 
Wertes für A, denn dieser beträgt 65. Der ASCII-Wert für B ist 66. Deshalb 
beginnen die DATA-Anweisungen für den Buchstaben B in Zeile 26600. 

Mit unserer speziellen Zeilennumerierung können wir Zeichen spezifizieren, 
indem wir die durch den ASCII-Code zugehörige Kennzahl benutzen. Die 
Kennzahl des Buchstabens A ist zum Beispiel 65. Das bedeutet aber, daß wir 
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ebenso alle anderen Zeichen der Tastatur herstellen können. Später erfolgt 
der Zugriff auf diese Zeichen durch Verwendung ihrer ASCII-Kennzahl. 
Ergänzend zu den Großbuchstaben, die wir im Programm zur Verfügung 
stellen, kann der Leser auch Kleinbuchstaben entwerfen. Wir schlagen vor, 
hier mit Bild Nr. 97 zu beginnen (Zeile 29700). Die Kennzahl jedes Klein- 
buchstabens ist dann gleich der Kennzahl des zugehörigen Großbuchstabens 
plus 32. Dies entspricht somit dem Standart-ASCII-Code. Die Wahl, ob 
Klein- oder Großbuchstabe erscheinen soll, kann durch eine Textvariable 
belegt werden. 

Fügen Sie das folgende Unterprogramm zu BILD EINHEIT hinzu. Dieses 
Unterprogramm wandelt die ASCII-Zahl des Großbuchstabens in die zuge- 
hörige Kennzahl des Kleinbuchstabens um. 


155912: 

15592 REM *UMWANDLUNG VON GROSS- IN KLEINBUCHSTABEN* 
15593 REM EINTRITT: Z$ GROSSBUCHSTABE 

15594 REM AUSTRITT: Z1$ KLEINBUCHSTABE 

15599 : 

15600 215 =" “* 

15610 IF LEN (Z$) = 0 THEN RETURN: REM KEIN ZEICHEN 
15620 FOR Z = 1 TO LEN (Z$) 

15630 Z1$ = Z1$ + CHR$(ASC(MID$(Z$, Z, 1)) + 32) 

15640 NEXT 

15650 RETURN 


Nachdem wir die Kleinbuchstaben zu BILD EINHEIT hinzugefügt haben, 
können wir zum Beispiel X$ = “Katze‘‘ wie folgt schreiben: 


500 Z$ = “ATZE: GOSUB 15600 
510 X$=“K“ +Z1$ 


Unsere Form der Zeilennumerierung bietet Platz für 255 Zeichen (von Zeile 
20100 bis Zeile 45599). Die Nummern 32 bis 127 bleiben reserviert für die 
Zeichen des ASCII-Codes. Wir haben also genügend Raum für weitere Zei- 
chen, die wir selbst entwerfen können. 


Anlegen einer Zeichen-Bibliothek 


Vielleicht möchte der Leser noch viele andere Zeichen zur Verfügung haben. 
Zu diesem Zweck empfehlen wir, mit dem Erstellen einer Zeichen-Bibliothek 
zu beginnen. Die Zeichen 1 bis 31 und 128 bis 255 können mit Hilfe des Pro- 
gramms BILD EINHEIT verwendet werden. Wenn wir ein Programm fertig- 
gestellt haben, verbinden wir es einfach mit BILD EINHEIT. Damit stehen 
uns alle Zeichen mit einem Male zur Verfügung. Um Speicherplatz zu sparen, 
können die nicht benötigten Zeichen nachträglich gelöscht werden. Das An- 
legen einer Bibliothek in dieser Form erleichtert die wiederholte Benutzung 
von Zeichen. Es erspart uns den Zeitaufwand, die Zeichen jedesmal neu her- 
stellen zu müssen. 
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Entwerfen und Verbinden neuer Bilder 


Der einfachste Weg zum Entwerfen neuer Bilder besteht darin, diese auf 
kariertem Papier aufzuzeichnen. Anschließend wird das Bild durch das Ein- 
tippen von Zahlen in die DATA-Anweisungen übertragen. Da die Farbpunkte 
auf dem Bildschirm nicht genau quadratisch sind, wird das Bild auf dem 
Monitor nicht exakt die gleiche Form haben wie auf der Papiervorlage. In 
Abbildung 1 ist ein Zwei-Farben-Baum auf kariertem Papier dargestellt. 


Verändern Sie BILD EINHEIT wie folgt: 


10 REM «„ZWEI FARBEN BAUM-BILD EINHEIT. 
11: 

12 REM BILD UNTERFROGRAMME + BILD BIBLIOTHEK 
13 : 

100 GR : HOME 

110 X$ = CHR$ (1) 

120 XC(1) = 

130 XC(2) = 

140 GOSUR 15300 

997 END 

20100 DATA 21,58: REM’ ZWEI-FARBEN-BAUM 
20102 DATA “ 11111111111111" 
20104 DATA " A11111111111111"” 
20106 DATA "i1i111111ı1111111111" 
20108 DATA "1iiiiıı111111111111" 
20110 DATA "iii1ilııtıilaıalaaaaaa" 
20112 DATA "111111111111111111111" 
20114 DATA "ı11111111111111111111" 
20116 DATA "111111111111111111111" 
20118 DATA "“ıiiiiıiaaııaıaıaaaaaaaa" 
20120 DATA "i11111111111111111111” 
20122 DATA "ı1111aııa11ı111111111" 
20124 DATA "A111li11ı111111111111" 
20126 DATA "“ıillıdaliiaaaimaaaadaa® 
20128 DATA "ilillıı 221111111111" 
20130 DATA "“ 11111 22 11111111“ 
20132 DATA “ 11111 22 11111" 
20154 DATA " 1111 22 uD5 
20156 DATA 22" 

20158 DATA “ 22" 

20140 DATA " 22" 

20142 DATA “ 223 

20144 DATA “ 222 

201456 DATA " Ran 

20148 DATA " 22" 

20150 DATA "” 22" 

20152 DATA " 2 

20154 DATA " 22" 

20156 DATA " Ras 

20158 DATA “ er 

20160 DATA “ 22" 

20162 DATA “ 22” 

20164 DATA “ 22" 

20166 DATA “ 2 

20168 DATA " Ras, 

20170 DATA " Dr 

20172 DATA "“ 222 

20174 DATA " 222 

20176 DATA "“ 22222222" 

20178 DATA "-1" 






















































































































































































Die Zeilen 20100 bis 20178 entsprechen dem grafischen Bild. Speichern Sie 
das Programm als ZWEI-FARBEN-BAUM. Da für den Zwei-Farben-Baum 
kein entsprechendes ASCII-Zeichen existiert, muß der Zugriff auf dieses 
Bild auf andere Weise erfolgen (siehe Zeile 110). Anstatt in der Textvariablen 
X$ die entsprechenden Zeichen anzugeben, wird die Kennziffer des Bildes 
benutzt. Um zum Beispiel das Bild Nr. 130 zu spezifizieren, benutzen wir 
den Befehl: X$ = CHR$ (130). Mit dieser Methode können wir Bilder auf 
dem Bildschirm genau so positionieren wie Buchstaben und Zahlen. Wir 
ordnen die Bildnummer mit CHR$ der Variablen X$ zu. Dann erfolgt der 
Eintritt in das Unterprogramm BILD EINHEIT in Zeile 15300 oder 15400. 
Mit X$ können auch mehrere Bilder in einer Reihe angeordnet werden. 
Eine solche Zuordnung hat die Form: 


X$ = CHR$(130) + CHR$ (140). 
Die Zahlen 130 und 140 geben die Nummern der Bilder an. 


Zum Schluß noch eine Bemerkung zum freien Raum zwischen zwei Bildern. 
Das Programm BILD EINHEIT setzt eine Leerstelle zwischen zwei aufeinan- 
derfolgende Bilder. Mit XS kann die Anzahl der Leerstellen vor dem Ein- 
tritt in das Unterprogramm verändert werden. 


Mehrmalige Benutzung eines Bildes mit verschiedenen Farben 


Beim Entwerfen des Bildes haben wir jedem Kästchen auf dem Zeichen- 
papier eine Zahl zugeordnet, die eine bestimmte Farbe repräsentiert. Karos, 
die keine Zahl enthalten, werden nicht farbig ausgefüllt. Bei der späteren 
Verwendung im Programm wird jeder Zahl eine APPLE-Farbe zugeordnet. 
Das geschieht auf die gleiche Art wie mit der Zahl 1 bei den Buchstaben. 

Der Zwei-Farben-Baum hat einen braunen Stamm und dunkelgrünes Laub, 
wenn XC(1)=4 und XC(2)=8 gilt. Ein wenig später können wir dasselbe 
Bild noch einmal benutzen. Diesmal haben wir einen weißen Stamm mit 
gelben Blättern, indem wir XC(1) = 12 und XC(2) = 15 setzen. Oder wir er- 
halten einen roten Stamm mit rotem Laubwerk, wenn wir XC(1) = 1 und 
XC(2) = 1 schreiben. 

Durch die Verwendung dieser Farbnumerierungsmethode können wir Bilder 
entwerfen, ohne direkt entscheiden zu müssen, welche Farbe wir letztendlich 
verwenden wollen. 

Wir können mehrere Farbkombinationen ausprobieren, indem wir einfach 
verschiedene Farbzuordnungen treffen. Diese Flexibilität ist besonders vor- 
teilhaft, wenn wir Bilder entwerfen wollen, wie zum Beispiel den Baum in 
Abbildung 2. Für dieses Bild benutzen wir drei Zahlen. Indem wir diesen 
Zahlen die APPLE-Farben in unterschiedlicher Art und Weise zuordnen, er- 
halten wir recht abwechslungsreiche Bilder. 
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10 REM .. 


11: 


„DREI FARBEN BAUM-BILD EINHEIT... 


100 GR : HOME 


110 %$ = 
120 XV = 0 
150 XC(1) 
140 XC(2) 
150 XC(3) 


CH 


nun 


R$ (2) 


1 
2 
3 


160 GOSUB 15300 
170 PRINT : 
180 GET Z$ 
200 GR : HO 
210 XV =0 
220 XC(1) = 
230 XC(2) = 
240 XC(7) = 
250 GOSUB 15300 


260 PRINT : PRINT "DRUECKE EINE TASTE,DANN GEHT'S WEITER.. 


270 GET Z$ 

500 GR : HOME 

Ss10 XV =0 

320 XC(1) =9 

330 XC(2) = 9 

340 XC(S) = 9 

350 GOSUB 15300 

360 FRINT : FRINT "DRUECKE EINE TASTE,DANN GEHT’S WEITER.. 
370 GET Z$ 

400 GR : HOME 

410 XV =0 

420 XC(1) =5 

430 XC(2) =5 

440 XClI) = 5 

450 GOSUR 15300 

460 PRINT : FRINT "DRUECKE EINE TASTE,DANN GEHT’S WEITER.. 
470 GET 2$ 

500 GR : HOME 

510 Xy=0 

520 XCt1) = 0 

530 XC(2) = 0 

540 xXC(Y) = 8 

550 GOSUB 15I00 

799 END 

20200 DATA 23,39: REM DREI-FARBEN-BAUM 
20202 DATA “ A11lıı1lı1ılılalaı® 
20204 DATA " 12211111 111111111" 
20206 DATA "112211111111111222111" 
20208 DATA "111111111111122221111" 
20210 DATA "“ı1lllızz2ıııllı1l11i111ı" 
20212 DATA "13111111222111111131111" 
20213 DATA "13113111111111111322111" 
20216 DATA "13333221111111223111111” 
20218 DATA "11113222513111115111I11” 
20220 DATA "121131111351112115133111" 
20222 DATA * 2215111115122215151111” 
20224 DATA “ 1353111211311113322" 
20226 DATA " 11151122213513333 1" 
20228 DATA " 1113511111333" 

20230 DATA “ 33111133" 

20252 DATA ISIIIII" 

20234 DATA "“ 33" 

202356 DATA “ 33“ 
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PRINT "DRUECKE EINE TASTE,DANN GEHT’S WEITER.. 


ME 


3 
4 
5 


20238 DATA " 
20240 DATA " 
20242 DATA " 
20244 DATA " 
20246 DATA "“ 
20248 DATA " 
20250 DATA " 
20252 DATA " 
2025 DATA " 
20256 DATA " 
20258 DATA "“ 
202560 DATA " 
20262 DATA " 
20264 DATA " 
20266 DATA “ 
20268 DATA " 
20270 DATA “ 
20272 DATA "“ 
20274 DATA "“ 
2027: DATA 
20278 DATA “ 
20230 DATA "-1" 





Speichern Sie dieses Programm als DREI-FARBEN-BAUM. 

Wir sehen, daß das gleiche Bild je nach Art der Farbzuordnung sehr ver- 
schiedenartig aussehen kann. (Siehe die Zeilen 130 bis 150, 220 bis 240, 
320 bis 340, 420 bis 440 und 520 bis 540). 

Als wir den Baum entworfen haben, überlegten wir, welche Bereiche ver- 
schiedene Farben haben sollten. Dann ordneten wir jedem Bereich eine Zahl 
zu. (Je mehr Zahlen benutzt werden, desto größer wird die Vielfalt bei der 
Farbgebung des Bildes.) Dann benutzten wir dieses Bild im Programm und 
ordneten jeder Zahl eine Farbe zu. (Wir können auch dieselbe Farbe mehre- 
ren Zahlen zuordnen — siehe Zeile 320 bis 340, 420 bis 440 und 520 bis 
540.) Mit dieser Methode stehen maximal neun Farben zur Verfügung. Die 
ständigen Veränderungen der Bilder werden durch aktuelle Farbfestlegun- 
gen bewirkt. Natürlich können wir das Bild zu einem späteren Zeitpunkt mit 
anderen Farben noch einmal verwenden. , 
Das nächste Bild ist komplexer und vielseitiger als die Vorhergehenden. Wir 
benutzten neun Zahlen, um die verschiedenen Teile der Figur zu bezeichnen. 
Durch die Verwendung verschiedener Farbsätze erhalten wir jeweils vier 
mögliche Arm- bzw. Beinstellungen (Abbildung 3). Den nicht benötigten 
Körperteilen muß die Farbe schwarz zugeordnet werden. 


10 REM: .„».PERSON-BILD EINHEIT... 

11: 

100 C = 3: REM ANZAHL DER FARBEN 

110 FORN = 1 TOC 

120 X$ = CHR$ (I) 

197 : 

198 REM t FARBE FUER N’TE PERSON IN ZEILE S00+104N & 
199 : 

200 z = 500 +10 # N 

210 GOSUR 19000 
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220 FOR J= 1709 

2350 READ XC(J) 

240 NEXT 

300 GR : HOME 

310 xXV=0 

320 GOSUB 15300 

400 PRINT 

410 PRINT "DRUECKE RETURN,DANN GEHT’S WEITER..." 
420 GET Z$ 

430 NEXT 

490 END 

497 REM % WERTE FUER XC1t1),...,XCi9) * 


498 REM (FARBEN FUER N’TE PERSON IN ZEILE S00+104N) 
499 : 


510 DATA 





5,0,0,5,5,0,5,0,5 
520 DATA 1,0,1,0,1,0,1,0,1 
530 DATA 0,4,4,0,4,4,0,4,0 
20300 DATA 20,39: REM PERSON 
20302 DATA " 555 3 
20304 DATA " 555 
20306 DATA " 555 
20308 DATA " 555 
20310 DATA " 555 
20312 DATA " 5 
20314 DATA " 5 
20316 DATA " 222225555555533 
20318 DATA " 2 1155555 4" 
20320 DATA " 2 11 55555 4" 
20322 DATA " 2 11 55555 4" 
20324 DATA " 211 55555 4 a" 
20326 DATA “ 21 55555 4 a" 
20328 DATA " 21 55555 444444" 
20330 DATA "22211 55555" 
20332 DATA " 110255555: 
20334 DATA “ 11155555" 
20336 DATA “ 1155555" 


20358 DATA " 777777755553" 
20540 DATA " 7777777555553" 


20342 DATA " 77 88 55" 

20344 DATA “ 77 88 55" 

20346 DATA " 77 83 55" 

20548 DATA " 77 88 55" 

20350 DATA " 77 88 53" 

20352 DATA " 77 88 55" 

20354 DATA " 77 88 559999999" 
20356 DATA "777 88 559999999" 
20358 DATA "777 88 56 99" 
20560 DATA “ 88 656 235 
20362 DATA " 83 55 97" 
20564 DATA “ 83 68" 

20366 DATA " 88 86" 

203568 DATA " 83 88" 

20370 DATA " 88 56" 

205372 DATA " 88 55" 

20374 DATA " 88 65" 

20376 DATA “ 82888 66686" 
20378 DATA “ 88989 &8668" 


20380 DATA "-1" 
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Benutzen Sie für die Bereiche 1, 3 und 5 dieselbe Farbe und ordnen Sie den 
Bereichen 2 und 4 die Farbe schwarz zu. Die Figur hat jetzt einen Arm an 
der Hüfte und streckt den anderen Arm in die Luft. 


Soll die Figur gerade stehen, müssen die Bereiche 5, 6 und 8 dieselbe Farbe 
erhalten. Die Bereiche 7 und 9 werden schwarz gezeichnet. 


Können Sie die Farbe so bestimmen, daß die Figur nur den linken Fuß hebt? 


Verschiedene Fernsehsysteme, verschiedene Farben 


Im letzten Kapitel spielten wir mit Farben bei der Programmierung von 
Rechtecken und Rändern. In diesem Kapitel erstellten wir Bilder. Hier wird 
der Leser sicherlich viel Wert auf die gute Darstellung der Farben legen. Die 
Farben, die wir auf dem Monitor sehen, hängen jedoch stark von dem 
speziellen Fernsehgerät ab. So kann in der Tat ein Bild ganz anders aussehen, 
wenn es auf einem anderen Fernsehgerät dargestellt wird. Die Firma APPLE 
liefert dazu eine Testkarte für Farben. Mit dieser Karte (sie befindet sich in 
der APPLE Bedienungsanleitung) können wir sehen, wie die Farben aussehen 
sollten. 

Wir möchten dem Leser empfehlen, eigene Bilder zu entwerfen. Es macht 
sehr viel Spaß und gibt den Programmen einen individuellen Charakter. 
Große und aufwendige Bilder können innerhalb anderer Programme er- 
scheinen. Oder wir stellen ein kleines Bild her und lassen es um den Bild- 
schirm wandern. Es ist wichtig, sich zu merken, daß alle Bilder in den DATA- 
Anweisungen enthalten sind. Deshalb können nicht dieselben Zeilennum- 
mern zur Darstellung verschiedener Bilder benutzt werden. 


Zusammenfassung von Kapitel 3 


Wir haben gezeigt, wie das Programm BILD EINHEIT zur Darstellung von 
Buchstaben und Zahlen in LO-RES-Grafik benutzt wird. Außerdem haben 
wir gesehen, wie hübsche und originelle Bilder entworfen werden. Das Pro- 
gramm BILD EINHEIT ist beim Schreiben von eigenen Spielprogrammen 
sehr nützlich. An anderer Stelle in diesem Buch werden wir zeigen, wie wir 
dieses Programm in unseren Spielen eingesetzt haben. 


Lösungen zu Kapitel 3 


Fragel: Das Wort “KATZE“ erscheint in violetter Schrift auf dem Bildschirm. An- 
schließend wird dasselbe Wort an gleicher Stelle in gelber Farbe ausgedruckt. 
Frage 2: Der Bildschirm wird gelöscht, bevor das Wort “KATZE“ in gelber Farbe aus- 


gedruckt wird. 
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Kapitel 4 
Hochauflösende Grafik 








In diesem Kapitel wollen wir etwas über die Nutzung der hochauflösenden 
Grafik des APPLE II lernen. Im Vergleich zur LO-RES-Grafik ist die hoch- 
auflösende Grafik (HI-RES) wesentlich komplizierter anzuwenden. Deshalb 
wollen wir nicht alle Einzelheiten zeigen, sondern uns auf einige wenige Din- 
ge beschränken, die das Programmieren der HI-RES-Grafik in APPLESOFT 
BASIC ohne großen Aufwand erlauben. Um die Darstellung der Bilder auf 
dem Bildschirm zu beschleunigen, benutzen viele Spielprogramme HI-RES- 
Grafik mit Unterprogrammen in Maschinensprache. Da diese nicht in BASIC 
geschrieben sind und da Maschinensprachen über das Ziel dieses Buches hin- 
ausgehen, wollen wir hier nur so viel sagen, daß die HI-RES-Programme 
wesentlich komplizierter sind als sie auf den ersten Blick erscheinen. 

Die Konstrukteure des APPLE versuchten die ..Schwierigkeiten beim Pro- 
grammieren von HI-RES-Bildern in BASIC durch das Einführen von For- 
mativtabellen auszuräumen. Mittels Formativtabellen können grafische Mo- 
tive entworfen, hergestellt und wieder verändert werden. Dazu gibt es einen 
speziellen Befehlssatz. Doch leider sind auch die Formativtabellen sehr um- 
ständlich und schwierig zu handhaben. Sie sind außerdem zu kompliziert, 
um in diesem Buch näher erläutert zu werden. Auch bleibt die Darstellung 
der Grafik mit diesen Formativtabellen weiterhin langsam. Sie sind zum Bei- 
spiel nicht dazu geeignet, eine HI-RES-Karte von Europa zu erstellen. Für 
diejenigen Leser, die nähere Einzelheiten über die HI-RES-Formativtabellen 
wissen möchten, verweisen wir auf Kapitel 9 der APPLESOFT-Programmier- 
anleitung. Außerdem ist es empfehlenswert, eines der im Handel erhältlichen 
Software-Pakete für High-Resolution-Grafik zu erwerben; sie enthalten meist 
eine ausführliche Programmdokumentation. Die Benutzung eines kom- 
merziellen Programms ist viel einfacher als die Programmierung von HI-RES- 
Grafik in BASIC. Sehen Sie sich bei einigen der Software-Anbieter um und 
studieren Sie genau die Programmbeschreibungen, damit Sie die Anwendung 
der Programme gut verstehen. 
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Grundlagen der HI-RES-Grafik 


Da wir jetzt wissen, was in BASIC nicht machbar ist, zeigen wir einige leicht 
durchführbare Anwendungen. HI-RES arbeitet mit zwei Grafikseiten: Seite 1 
und Seite 2. Um Seite 1 zu benutzen, verwenden wir den Befehl HGR. Mit 
HGR2 wird der Computer angewiesen, Seite 2 zu benutzen. j 
Jeder dieser Befehle löscht die zugehörige Seite mit schwarzer Farbe. Mit 
Grafikseite 1 kann ein Raster von 280 (0—279) Punkten Breite und 160 
(0—-159) Punkten Höhe dargestellt werden. Unterhalb der Grafikseite 1 steht 
noch ein nicht benutzter Raum zum Ausdruck von vier Textzeilen zur Ver- 
fügung. Dafür wird im BASIC-Programm der übliche PRINT-Befehl verwen- 
det. Die Grafikseite 2 verfügt über ein Raster von 280 X 192 Punkten. Sie 
bietet keinen Platz für Textzeilen. 

Der Befehl HCOLOR bestimmt die Farbe beim Ausdrucken in HI-RES- 
Grafik. Es stehen 8 Farben zur Verfügung. Ihre Kennzahlen lauten wie folgt: 

0 = SCHWARZ 4 = SCHWARZ 


1=GRÜN 5 =0ORANGE 
2 = VIOLETT 6 = BLAU 
3 = WEISS 7 = WEISS 


Die Farben Schwarz und Weiß sind zweimal vertreten (die Gründe hierfür 
sind technischer Art). Möglicherweise erscheinen die Farben 5 und 6 auf 
Ihrem Bildschirm nicht als Orange bzw. Blau. Eine der Schwierigkeiten der 
HI-RES-Farben liegt in den unterschiedlichen Fernsehsystemen; die Darstel- 
lung der Farben ist von der Verwendung des speziellen Fernsehgeräts ab- 
hängig. Um einige dieser Probleme zu vermeiden, kann man in Schwarz-Weiß 
programmieren. 

Um die Farbe Weiß zu erhalten, benutzen wir den Befehl: 


HCOLOR = 3 

Die Farbe wird solange verwendet, bis ein weiterer HCOLOR-Befehl eine 

neue Farbe bestimmt. 

Der HPLOT-Befehl bewirkt das Zeichnen eines Punktes oder einer Linie auf 

der HI-RES-Seite. Die obere linke Ecke entspricht dem Punkt 0,0. Alle Punk- 

te werden in Relation zu diesem Punkt ausgedruckt. 

Der Befehl HPLOT 25,55 bewirkt das Ausdrucken eines Punktes in der 25. 
palte von links und der 55. Zeile von oben. Dies geschieht in der zuletzt 
enutzten Farbe. 

Ait HPLOT 10,20 TO 110,90 ergibt sich eine diagonale Linie von Punkt 

10,20 zu Punkt 110,90. Um die Linie über Punkt 110,90 hinaus fortzu- 

setzen, benutzen wir die verkürzte Form des HPLOT-Befehls: 

HPLOT TO 160,20 


Die verkürzte Form des HPLOT-Befehls setzt voraus, daß die Linie vom letz- 
ten ausgedruckten Punkt an fortgesetzt werden soll (in unserem Fall 110,90). 
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Die obigen Befehle können in einer einzigen Anweisung zusammengefaßt 
werden: 


HPLOT 10,20 TO 110,90 TO 160,20 


Das folgende Programm demonstriert die Anwendung der bisher erläuterten 
HI-RES-Befehle: 


10 REM ...HI-RES DEMO1... 
11 

110 HSR 

120 HCOLOR= 3 


130 
130 


150 








10,20 TO 110,90 
220 

TO 160,20 
220 


1970 GOTO 300 





220 PRINT "MIT ’RETURN” GEHT ES WEITER. .."; 
230 INPUT Rs 

240 RETURN 

00 END 


Geben Sie dieses Programm ein und starten Sie es. 


Frage 1: Welcher Befehl bewirkt das Ausdrucken einer senkrechten Linie 
von Punkt 160,20 zu Zeile 90? 

Schreiben Sie diesen Befehl in Programmzeile 185. 

Frage 2: Schreiben Sie in Zeile 190 einen Befehl, der den Ausdruck in 
grüner Farbe bewirkt. Wie erhalten Sie eine waagerechte Linie über 
den ganzen Bildschirm am oberen Bildrand? 

Schreiben Sie diesen Befehl in Zeile 200. 


Die Befehle HGR und HGR2 löschen den Bildschirm mit schwarzer Farbe. 
Um den Bildschirm mit farbigem anstatt schwarzem Hintergrund zu löschen, 
verwenden wir folgende Befehle: 


— HGR oder HGR2 
— POKE 28,X 
— CALL 62454 


Die Variable X entspricht einer Zahl zwischen O und 255. Für die folgenden 
Werte von X bewirkt der POKE-Befehl ein Löschen des Bildschirms in den 
Farben: 


SCHWARZ 0 oder 128 
WEISS 127 oder 255 
GRÜN 42 

VIOLETT 85 

ORANGE 170 

BLAU 213 
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Für jeden anderen Zahlenwert erhalten wir ein interessantes Streifenmuster 
auf dem Bildschirm. Das Löschen des Schirms erfolgt sehr schnell. Ist die 
Hintergrundfarbe festgelegt, können wir mit anderen Farben Punkte und 
Linien über den Hintergrund zeichnen lassen. 


Einige HI-RES-Probleme 


Unser letztes Programm funktioniert genau wie erwartet. Auch wenn wir die 
Farbe ändern, wird das Programm weiter richtig arbeiten. Dies ist auch nach 
dem Umschalten auf Grafikseite 2 der Fall. Mit Ausnahme des Textes 
“DRUECKE RETURN“ arbeitet das Programm wie erwartet. Wegen des 
fehlenden Textfensters können diese Worte nicht erscheinen. 


Daß das Programm genau so funktioniert, wie wir das erwartet haben, er 
wähnen wir deshalb ausdrücklich, weil das nicht immer der Fall ist. Die 
Unterschiede in den Fernsehsystemen und Besonderheiten der HI-RES- 
Grafik bewirken, daß wir nicht immer das sehen, was zu erwarten ISt. Dazu 
zeigen wir nun ein ‚klassisches‘ Beispiel. Das folgende Programm versucht, 
einen schönen, einfarbigen Rand in der Grafikseite 1 zu zeichnen. Geben Sie 
das Programm ein und starten Sie es. Was geschieht? 


10 REM ...HIRES UMRANDUNG... . 
11: 
12 REM 


DEMONSTRIERT UMRANDUNG IN JEDER FARBE 


13 3 
100 FOR J = 0 TO 7: REM 
110 HOME : H6R 

120 HCOLOR= J: REM NAECHSTE FARBE 

200 HFLOT 0,0 TO 279,0 TO 279,159 TO 0,159 TO 0,0 
300 VTAR 22: PRINT "UMRANDUNG IN FARBE ";J 


320 PRINT "DRUECKE RETURN FUER DIE NAECHSTE FARBE“ 
325 PRINT "PRESS ESCAFE TO STOR..."; 
320 GET Z$ 


sa0 IF Z# = CHRs& (27) THEN TEXT : END : REM ESC 
351 NEXT 


>60 GOTO 100: REM SCHLEIFE 


VERWENDE ALLE FARBEN 


Wir sehen, daß einige der Ränder nicht vollständig sind. Andere Linien er- 


scheinen in mehreren Farben. Wie kommen diese Effekte zustande? Die 
Antwort auf diese Frage ist nicht einfach. 

Frage 3: Warum erscheint bei den Farben O und 4 nichts auf dem Bild- 
schirm? 


Frage 4: Welche Farben ergeben einen vollständigen Rand, obwohl mehrere 
Farben gemischt werden? 


Fügen Sie den folgenden Befehl zum Programm hinzu und starten Sie es er- 
neut. Beobachten Sie die Veränderungen. 


210 HPLOT 1,1 TO 278,1 TO 278,158 TO 1,158 TO 1,1 
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Mit diesem Befehl wird ein doppelter Rand erzeugt, indem ein weiterer 
innerer Rand hinzugefügt wird. Wir wollen feststellen, ob dadurch der ur- 
sprüngliche Rand verbessert wird. 


Frage 5: Welche Farben ergeben nun einen vollständigen, einfarbigen Rand? 


Die Farbe 5 (Orange) erscheint weiter in zwei Farben. Auch die Farbe Weiß 
wird nicht korrekt wiedergegeben. Es ist überraschend, daß dieses Problem 
auch dann besteht, wenn ein teurer und hochwertiger Video-Monitor ver- 
wendet wird. 

Streichen Sie Zeile 200 und schauen Sie, ob der innere Rand allein richtig 
wiedergegeben wird. 

Frage 6: Was geschieht, wenn das Programm jetzt gestartet wird? 


Das gleiche Problem taucht auch bei Benutzung von Grafikseite 2 auf. Geben 
Sie dieses kleine Programm ein und starten Sie es: 


100 HGR 
110 HCOLOR = 1 
120 HPLOT 50,0 TO 70,150 


Frage 7: Wir erwarten, daß auf dem Bildschirm eine einfache Linie ausge- 
druckt wird. Was geschieht tatsächlich? 


Wählen Sie eine andere Farbe. Schauen Sie, ob das Bild sich dadurch ändert! 
Wählen Sie andere Bildschirmkoordinaten für den Ausdruck der Linie. Das 
Bild auf dem Monitor ändert sich in einer interessanten Form. 

Es gibt noch weitere Probleme mit der HI-RES-Grafik. Einige Linien führen 
zu einem verwirrenden Durcheinander von Farben. Ein für alle Fernseh- 
systeme gemeinsames Problem besteht in einer unerwünschten orangen Linie 
am linken Bildschirmrand. Dies ist eine Folge der Konstruktion der HI-RES- 
Software. Andere Probleme hängen nicht von den Grafikfähigkeiten des 
APPLE-Computers ab. Allerdings sind sie ein Produkt elektronischer Schal- 
tungen in Fernsehgeräten und teuren Farbmonitoren. 








Spaß mit HI-RES 


Wir wollen dieses Kapitel nicht beenden, ohne einige Beispiele vorzuführen, 
die leicht und schnell mit der HI-RES-Grafik durchführbar sind. Wir können 
vieles mit HI-RES realisieren, nur sollten wir keine Vollkommenheit erwar- 
ten. Beim Durchführen der folgenden Übungen werden einige farbliche 
Mängel auf dem Bildschirm sichtbar. Aber nicht verzweifeln ... das gehört 
eben mit zur HI-RES-Grafik hinzu! 
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Geben Sie das folgende Programm ein. Es zeigt ein einfaches Gittermusterin 
HI-RES-Grafik: 


10 REM 
lese 


12 


«..GITTER NETZ... 


REM EINFACHES GITTER NETZ 


15 ; 
100 TEXT : REM BENUTZE VOLLEN BILDSCHIRM 
110 HO 


0: REM H-URSFUNG 
120 vo 159: REM V-URSFRUNG 
130 MS 19: REM MAXIMALE SCHRITTWEITE 
200 HOME : H6GR 


210 S%=MS #£ RND (1) + 1: REM 
ON 


220 HTAB 1: VTAR 22: PRINT "SCHRITTWEITE = ";5% 

250 7% =7 x RND (1) + 1: IF 7% = 4 THEN 230: REM 
CHT-SCHWARZE FARBE 

240 HCOLOR= 7% 


WAEHLE SCHRITTWEITE DURCH ZUFALLSFUNKTI 


WAEHLE ZUFAELLIGE NI 


300 R% = VO / 5% # S%: REM INTERVALL 
310 FOR J = 0 TO R% STEP S%: REM 
EN 


SCHRIITE INNERHALB DER INTERVALLGRENZ 
320 HFLOT HO,VO - R% + J TO HO + J.VO: REM 


NAECHSTES GITTER SEGMENT 
390 NEXT 
sıo 


PRINT "DRUECKE RETURN FUER DAS NAECHSTE GITTER" 
515 


PRINT "FRESS ESCAPE TO STOP..."; 
520 GET z$ 


530 IF Z$ = 


CHR& (27) THEN TEXT 
540 GDTO 200 


= END : REM ESC 


Speichern Sie es unter dem Namen GITTER NETZ ab. 


Nun zeigen wir kunstvollere Versionen eines geometrischen GittermustefS, 
die sehr einfach herzustellen sind und klar und deutlich auf dem Bildschirm 
erscheinen. Unser spezielles Beispiel ist etwa komplizierter und ruft bei Da 
chen Mustern künstliche Farbveränderungen hervor. Ändern Sie GITTE 
NETZ wie folgt und speichern Sie das neue Programm als GITTER NETZ2. 


10 REM 


-..SITTER NETZ2 - GITTER NETZ 
1: 
12 REM SCHOENERES GITTER NETZ 
13 : 
110 HO = 139: REM H-URSPRUNG 
120 VO = 79: REM V-URSPRUNG 
150 MS = 11: REM 


MAXIMALE SCHRITT WEITE 
350 HFLOT TO HO,VO + RZ - J: REM UNTERE RECHTE ECKE 
340 HPLOT TO HO - J,VO: REM UNTERE LINKE ECKE 

350 HPLOT TO HO,VO - R% + J: REM OBERE LINKE ECKE 


Starten Sie das Programm. Beobachten Sie den Bildschirm. Was geschieht? 
Wir können jedes dieser zwei Programme mit anderen Spielprogrammen ver- 
binden. Dies gibt uns die Möglichkeit, eine Unterbrechung des Spiels effekt 
voll anzuzeigen bzw. ein interessantes Schlußmotiv am Ende des Spiels dar- 
zustellen. 
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Zusammenfassung von Kapitel 4 


Vielleicht ist dieses Kapitel für diejenigen Leser enttäuschend gewesen, die in 
wenigen Seiten alle Tricks der HI-RES-Grafik kennenlernen wollten. Wir 
glauben, daß die Programmierung von HI-RES-Grafiken über die Möglich- 
keiten des durchschnittlichen Hobby-Programmierers zu Hause oder in der 
Schule hinausgeht. Das Programmieren mit HI-RES-Grafik macht mehr Spaß, 
wenn der Leser ein kommerzielles Software-Paket erwirbt und benutzt. 
Außerdem möchten wir daran erinnern, daß die LO-RES-Grafik sehr viel 
einfacher zu gebrauchen ist. Kinder finden LO-RES-Bilder genauso schön wie 
HI-RES-Bilder. 


Lösungen zu Kapitel 4 


Frage 1: 
Frage 2: 


Frage 3: 
Frage 4: 


Frage 5: 


Frage 6: 





Frage 7: 


185 HPLOT TO 160,90 

190 HCOLOR = 1 

200 HPLOT 0,90 TO 279,90 

Dies sind schwarze Farben. Sie sind auf einem schwarzen Bildschirm nicht 
sichtbar. 

Die Farben 3 und 7 sind weiß. Mit diesen Farben erscheinen alle vier Seiten 
der Umrandung, obwohl die vertikalen Seiten ungerade Farbkoordinaten 
haben. 

Grün, Violett, Weiß und Blau werden normal wiedergegeben. 

Wie beim ersten Programmdurchlauf taucht das Problem der ungeraden 
Farben wieder auf. ‚ 
Anstatt einer durchgehenden Linie erscheint eine Folge von kurzen Linien, 
die von Punkt zu Punkt verlaufen. 
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Kapitel 5 
Programme zur Dateneingabe 





In diesem Kapitel stellen wir einige Unterprogramme vor, die speziell für die 

Dateneingabe bei Computerspielen entwickelt wurden. Es sind folgende Pro- 

gramme: 

— das „Universelle Eingabe‘ -Programm 

— das „Zahlen Eingabe‘‘-Programm 

— das „J/N‘-Programm 

— das „Einzelne Zeichen Eingabe‘‘-Programm 

— das „Pause oder Tastendruck Eingabe‘‘-Programm 

— das „Tastendruck ohne Wiedergabe‘‘-Programm. 

Sicherlich möchten viele interessierte Leser nähere Einzelheiten zu den 
Dateneinlese-Prozeduren wissen. Deshalb sind einige Teile des Kapitels mehr 
technischer Art. Für den Leser, der es nicht so genau wissen möchte, genügt 
es, die anwendungsbezogenen Teile des Kapitels zu lesen. 

Ein grundsätzliches Ärgernis für Benutzer von Computerspielen ist der Ab- 
bruch eines Programmes mitten im Spielverlauf aufgrund der Eingabe falscher 
Daten. Umgekehrt gilt dies auch für den Programmierer eines Computer- 
spiels, z.B. wenn unerfahrene Spieler falsche Daten eingeben oder falsche 
Tasten betätigen. Wie schon erwähnt, führt dies meistens zum Programmab- 
bruch: zur gegenseitigen Enttäuschung des Spielers als auch des Program- 
mierers. 

Unser endgültiges Programm enthält Prozeduren zur Bearbeitung von Daten- 
eingaben, testet die Gültigkeit der Daten und antwortet entsprechend. Der 
Abbruch eines Programmes wird in jedem Falle vermieden. Ein gutes Pro- 
gramm zur Dateneingabe ist immer mit Rücksicht auf den unerfahrenen Be- 
nutzer konstruiert. Es wird deshalb nur auf die vorgesehenen Tasten an- 
sprechen. Der Rest der Tastatur wird ignoriert. Wir haben vier Unterpro- 
gramme zur Dateneingabe entwickelt, die dieser Beschreibung entsprechen. 
Außerdem bieten wir zwei weitere Unterprogramme an, die für spezielle 
Zwecke benutzt werden können. 
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Hier ist das komplette Programm EINGABE EINHEIT. Es enthält alle weiter 
oben aufgezählten Unterprogramme. 


10 REM ..„„EINGABE EINHEIT... 


12 REM EINGABE DER UNTERFROGRAMME 


9992 REM *+ EINGABE UND WIEDERHOLUNG EINES TEXTES MIT RETURN ## 
9993 REM EINTRITT:CURSOR WIRD ZUM BEGINN DES EINGABE-FELDES GESETZT 


9994 REM YW FELD LAENGE 

9995 REM YF&$ FLATZHALTER FUER SPAETERE ZEICHEN 

7796 REM AUSGANG: 7% TEXT 

9997 REM 2%  -1 (ESC); O0 (NICHT ESC) 

9999 : 

10000 IF LEN (YF$) 1 THEN YF$ = " ": REM INITIALISIERE YF$ WENN NOTW 
ENDIG 

10910 YH%, 





= PEEK (36) + i: REM H-POS 


10020 YV% = PEEK (37) + 1: REM V-POS 
10100 GOSUB 10500: REM SETZE DAS EINSABE FELD ENTSPRECHEND YF$ UND INITIALT 
SIERE 


10110 GET Zi$® 

10120 IF Zi%$ = CHR$ (13) THEN RETURN 

10130 IF Z1$ < > CHR$ (27) THEN 10200: REM ESC 

10130 GOSUB 10500 

10150 FLASH : PRINT "ESC"; CHR$ (8);5: NORMAL 

10160 7% = - 1: REM ESC FLAG 

10170 GOTO 10110 ar Fl 

10200 IF Zi$s < > CHR$ (8) THEN 10300: REM LINK 

10210 IF M= -1 a er (78) < = 1 THEN 10100: REM ABFRAGE ESC ODER EIN 
ZEICHEN ODER WENIGER 

10220 PRINT CHRS (8):YFs: CHR$ (8):;: REM LOESCHE EIN ZEICHEN 








10230 Z$ = LEFT® (Z$, LEN (Z8) - 1) 

10240 GOT 0110 

10300 rn 2: ni " THEN 10110: REM IGNORIERE ANDERE KONTROLLZEICHEN 

10310 IF 7% = - 1 THEN GOSUR 10500: REM LOESCHE ESCAFE BEDINGUNG 
N IF LEN (Z8) < YW THEN 10400 

103350 IF YW = O THEN 10110: REM WIEDERHOLE NICHT WENN LAENGE =0 

10340 FRINT CHR& (8);: REM BEREITS BEI MAXIMALER LAENGE 

10350 IF LEN (Z8) = 1 THEN Zs = "" 


10360 IF LEN (28) > 1 THEN Z$ = LEFTS (Z$, LEN (Z#) - 1) 

10400 PRINT Zit;: REM WIEDERHOLE UND FUEGE ZEICHEN HINZU 

10410 7% = Z$ + z1$ 

1042 N o110 

13 Erin ee Yy%s FOR Z = 1 TO YW: PRINT YF$5: NEXT : REM  BESCHREI 
BE FELD ENTSPRECHEND YF$ a 

10510 NT" ng: ND LOESCHE MOE 

os N 2 a = E = YW + 1 TO I: PRINT " “;: NEXT : REM LOESCHE M 
DEGLICHES ESC WENN FELD NICHT LANG GENUG 

10530 HTAR YH%: VTAB YV% 

10540 78 = "" 

10550 2% = 0 

10540 RETURN 

10591: 

10592 REM x EINGABE ZAHL * ar 

10593 : BEDINGUNGEN 

ei = Fee 7% -1 (ESC); Q (UNGUELTIG)E 1 (GANZE ZAHL); 2 (DEZIMALZ 


AHL) 
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10595 REM Z MERT (WENN GUELTIG) 


10599 : 

10800 GOSUR 10000: REM LESE TEXT 

10610 IF Z%= - 1 OR LEN (Z$) = O THEN RETURN : REM NUR ESC ODER RETURN( 
27%=0) 


106820 7% = 1: REM SETZE GUELTIGES ZEICHEN 

10630 FOR Zi = 1 TO LEN (Z$):Z71%$ = MID#$ (7$,2Z1,1) 

10640 IF zZi$ = "." AND 7% = 1 THEN 7% = 2: GOTO 106560: REM BESTIMMUNG DES E 
RSTEN DEZIMALFUNKTES 


106850 IF (zi% < "Oo" OR Z1% > "9") AND (Zis < > "-" AND Zi 1) THEN Z% = 0: REM 
UNGUELTIG WENN KEINE ZAHL ODER EIN "-" ZEICHEN 
10650 NEXT 


105870 2 = VAL (Z$): REM WERT NUR BEI GUELTIGER FLAG (2%=1 OR 2) 
106880 RETURN 

10991 : 

10992 REM ## EINGABE GANZE ZAHL *# 

10993 REM EINGANG: BEDINGUNGEN FUER EINGABE TEXT SATZ 


10994 REM YL MINIMALE GANZE ZAHL 

10995 REM YH MAXIMALE GANZE ZAHL 

10996 REM AUSGANG: 7% -1 (ESC)I; Q (UNELIELTIGE AZHL); 1 (GUELTIGE ZAHL) 
10997 REM 2 -WERT (WENN GANZE ZAHL GUELTIG) 

10999 : 


11000 GOSUB 10500: REP EINGABE ZAHL 

11010 IF 2% < 1 THEN RETURN : REM ESC ODER UNGUELTIG 

11020 IF 7% = 2 THEN Z% = O0: RETURN : REM UNGUELTIG WENN DEZIMALFUNKT 

11030 IF Z <£ YL OR Z > YH THEN 7% = OÖ: REM UNGUELTIG WENN AUSSERHALB DER IN 
TERVALLGRENZEN 

11040 RETURN 

11091 : 

11092 REM ++ EINGABE DEZIMALZAHL #* 

11093 REM EINGANG: BEDINGUNGEN FUER EINSABE TEXTSATZ 


11094 REM YL MINIMALER WERT 

11095 REM YH MAXIMALER WERT 

11096 REM AUSGANG: 7% -1 (ESC); © (UNGUELTIG)I: 1 (GANZE ZAHL): 2 (DEZIMALZ 
AHL) 

11097 REM Z-WERT (WENN GUELTIG) 

11099 : 


11100 GOSUR 105800: REM EINGABE ZAHL 

11110 IF Z% <& 1 THEN RETURN : REM ESC ODER UNGUELTIG 

11120 IF Z< YL OR Z > YH THEN Z% = O0: REM UNGUELTIG WENN AUSSERHALB DER IN 
TERVALLGRENZEN 

11150 RETURN 

11191 : 

11192 REM ı* EINGABE J ODER N ## 

11193 REM EINGANG: CURSOR UND YF%$ GESETZT 

11194 REM AUSGANG: 2% -1 (ESC); O (WEDER J NOCH N ); 1 (9), 2 (N 

11199 : 

11200 Y$ = "IN": REM BENUTZE UNTERFROGRAMM ZUR EINGABE EINES EINZELNEN ZEIC 


HENS 

11291 : 

11292 REM +2 EINGABE EINES EINZELNEN ZEICHEN UND VERBINDEUNG MIT GUELTIGEM 
TEXT %* 

11293 REM EINGANG:CURSOR UND YF$ GESETZT 

11293 REM Ys TEXT VON VERBINDUNGSZEICHEN 


11295 REM AUSGANG: Z% -1 (ESC); © (ZEICHEN NICHT IM TEXTSATZ); J (J’TES ZE 
ICHEN IM VERBINDUNGSTEXT) 

11299 : 

11300 YW = 1: REM SETZE FELD-LAENGE 

11510 GOSUR 10000 

11320 IF 2% = - 1 0R LEN (Z$) = O THEN RETURN : REM NUR ESC ODER RETURN 
Z4=0) 
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113350 7% = 0: REM SETZE ZEICHEN FUER NICHT VERBUNDEN 

11340 FOR Zi = 1 TD LEN (Ys) 

11350 IF z$ = MIDE (Y&,Z1,1) THEN Z% = Zi: REM VERBINDE MIT FOSITION Z1 

11560 NEXT 

11370 RETURN 

11391 : 

11592 REM ** PAUSE FESTE LAENGE ODER BIS TASTENDRUCK #% 

11393 REM EINGANG:YF LAENGE DER FAUSE IN INTERNEN ZEITEINHEITEN 

11394 REM 0 WARTE AUF TASTENDRUCK 

11395 REM AUSGANG: 7% -1 (ESC); O (PAUSE ABGELAUFEN); 1 (TASTENDRUCK BEVO 
R PAUSE ABGELAUFEN) 


11396 REM Z TASTENDRUCK (ASCII-WERT + 128) 
11399 ; 

11400 FOKE - 16348,0: REM LOESCHE BISHERIGES ZEICHEN 

11410 Z1 = 0: REM  INITIALISIERE ZAEHLER (% EINGANG FUER EINZELNE TASTEN#) 
11420 i= Zi +1 

11430 2 = PEEK ( - 16384) 

11440 IF 2 > = 128 THEN 7% = 1-2 %* (Z = 159): RETURN : REM TASTENDRUCK; A 


BFRAGE FUER ESC DANN RETURN 
11450 IF Zi < YP OR YP = © THEN 11420 


11460 7% = 0: REM FAUSE ABGELAUFEN 

11470 RETURN 

11491 : 

11492 REM i* EINGABE EINZELNER ZEICHEN, KEINE WIEDERHOLUNG, OHNE VORANGEHE 
NDES ZEICHEN %*%* 

114935 REM AUSGANG: Z% -1 (ESC); 1 (ANDERE TASTE) 

11494 REM Z TASTENDRUCK (ASCII-WERT + 128) 

11499 : 

11500 YP = Q: GOSUR 11400: REM WARTE AUF TASTENDRUCK 


11510 FOKE - 16368,0: RETURN : REM LOESCHE TASTENFUNKTIONEN UND RETURN 

11591 : 

11592 REM *4 EINGABE EINZELNER ZEICHEN,KEINE WIEDERHOLUNG, MIT VORANGEHF 
DEM ZEICHEN #%* 

11593 REM AUSGANG:Z% -1 (ESC)I; 1 (ANDERE TASTE) 


11594 REM Z TASTENDRUCK(ASCII-WERT + 129) 
11599 : 
11600 YP = G: GOSUB 11420: REM EINGABE EINER TASTE.KEIN ZEICHEN VORHER 


11610 FOKE - 16568,0: RETURN : REM LOESCHE TASTENFUNKTIONEN UND RETURN 


Das Unterprogramm „Universelle Eingabe“ 


Das Unterprogramm zur universellen Dateneingabe akzeptiert alle Zeichen 
der Tastatur: Zahl, Buchstabe und spezielle Symbole. Es kann zur Eingabe 
aller Daten benutzt werden. Wir dagegen benutzen es nur für die Eingabe von 
Zahlen und speziellen Symbolen. Das Unterprogramm simuliert die Verwen- 
dung des üblichen INPUT-Befehls in BASIC. Dies setzt voraus, daß der Be- 
nutzer die RETURN-Taste betätigt, um anzuzeigen, daß die Dateneingabe 
abgeschlossen ist. Einige Programmierer verwenden sowohl GET- als auch 
INPUT-Befehle in einem Programm. Es ist für ungeübte Benutzer sehr ver- 
wirrend, für manche Antworten die RETURN-Taste drücken zu müssen und 
für andere nicht. Bei unserem Programm ist bei jeder Dateneingabe die 
RETURN-Taste erforderlich. (Ein technischer Hinweis: Zwar wird für die 
Dateneingabe eine GET-Anweisung benutzt, aber jede Eingabe wird auf das 
RETURN-Zeichen überprüft. Die Eingabe-Prozedur endet erst mit Eingabe 
des RETURN-Zeichens.) 
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Eine weitere Programmvereinbarung gibt uns die Möglichkeit, zu jeder Zeit 
die ESCAPE (ESC)-Taste zu drücken. Die ESC-Taste erfüllt eine bestimmte 
Aufgabe: Im allgemeinen zeigt der Benutzer damit an, daß er das Spiel be- 
enden möchte. Unser Programm überprüft, ob die ESC-Taste betätigt wird. 
Wenn dies der Fall ist, leuchtet das Wort ESC auf dem Bildschirm auf. Damit 
zeigt das Programm dem Benutzer an, daß die ESC-Taste betätigt wurde. 
Durch das Drücken der RETURN-Taste wird die Dateneingabe beendet. Das 
Betätigen jeder anderen Taste macht die Eingabe von ESC wieder rückgängig. 
Das Programm verbleibt weiter in der Phase der Dateneingabe. 


Wie das Programm auf das Betätigen der ESC-Taste reagiert, wird durch die 
Befehle des Programmierers bestimmt. 


Anwendung des „Universelle Eingabe “-Unterprogramms 


Dieses Unterprogramm beginnt in Zeile 10000. Die folgenden REM-Anwei- 
sungen stehen vor Beginn des Unterprogramms. 


9790 ; 

9991 : 

792 REM 33 EINGABE UND WIEDERHOLUNG EINES TEXTES MIT RETURN #%# 
9393 REM EINTRITT:CURSOR WIRD ZUM BEGINN DES EINGABE-FELDES GESETZT 
7794 REM YH FELD LAENGE 

9995 REM YF% PFLATZHALTER FUER SFAETERE ZEICHEN 

99958 REM AUSGANG: 7#% TEXT 

9997 REM 2% -1 (ESC); © (NICHT ESC) 

Ser) 


Wie wir sehen, gibt es die Eingangsvariablen YW und YF$ und die Ausgangs“ 
variablen Z$ und Z%. Vor dem Eintritt in das Unterprogramm müssen WIF 
den Eingangsvariablen einen Wert zuweisen. Der Eintritt wird durch den Be- 
fehl GOSUB 10000 bewirkt. Die YW-Variable bestimmt die Länge des Fel- 
des, d.h. die Anzahl der Zeichen, die unser Programm bei der Eingabe akzep- 
tiert. Wenn der Benutzer ein Wort mit 20 Buchstaben eingeben soll, dann 
muß im Programm die Anweisung stehen: 


200 YW = 20 


YF$ ist ein Platzhalter-Zeichen, die bei vielen Spielen allgemein gebräuchlich 
sind. Sie erscheinen immer dann, wenn der Benutzer Worte eingeben soll. Die 
Worte werden dann an die Stelle der Platzhalter gesetzt. Wird YF$ kein Zei- 
chen zugewiesen, so wird YF$ als Leerzeichen (blank) angesehen. Auf dem 
Bildschirm erscheinen deshalb Leerzeichen an der Stelle, die der Benutzer 
mit Buchstaben ausfüllen soll. Wenn wir aber YF$ ein Zeichen zuweisen, 
können wir damit anzeigen, wie viele Buchstaben oder Zahlen einzugeben 
sind. Hier ist ein Beispiel: 
210 YF$ = “-“ 
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Das folgende Beispiel zeigt, wie man das Unterprogramm in einem Spielpro- 
gramm aufruft. Die Feldlänge YW soll 3 betragen, die Platzhalter-Variable 
ist Rue: 

200 YW = 3: YF$ = X“ 

210 PRINT “GIB EINE DREISTELLIGE ZAHL EIN“ 

220 GOSUB 10000 


Frage 1: Wie lauten die BASIC-Anweisungen für die Eingangsvariablen 
eines Wortes mit 10 Buchstaben? Als Platzhalter soll ein Gleich- 


heitszeichen dienen. 


Die Ausgangsvariablen erfüllen zwei Funktionen. Z$ enthält die eingegebenen 
und auch angenommenen Daten. Dies können sowohl Zahlen als auch Buch- 
staben sein. Die Variable Z% beträgt — 1, wenn die ESC-Taste gedrückt wird; 
sie bleibt auf Null, wenn die ESC-Taste nicht betätigt wird. Die ESC-Taste 
kann für viele Zwecke genutzt werden. Dieses Unterprogramm gibt uns die 
Freiheit, die Funktionen der ESC-Taste selbst zu wählen. In einigen unserer 
Programme haben wir folgende Vereinbarung getroffen: Mit dem Drücken 
der ESC-Taste während des Spiels gibt der Benutzer seinem Wunsch nach 
Hilfe Ausdruck. Es erscheinen Hinweise und Informationen auf dem Bild- 
schirm. Drückt der Benutzer anschließend nochmals die ESC-Taste, wird das 
Programm beendet. Will er das Spiel fortsetzen, kann er die RETURN-Taste 
betätigen. Dies alles wird gesteuert, indem wir die Flexibilität unseres Pro- 
gramms EINGABE EINHEIT ausnutzen. 

Die ESC-Funktion kann auch benutzt werden, um zu einem Menü zu gelan- 
gen, das mehrere Wahlmöglichkeiten bietet. Zum Beispiel können in einem 
Kartenspiel die Karten neu gemischt werden, oder ein Spieler kann die 
Runde verlassen. Es gibt noch eine Menge anderer Beispiele für die Anwen- 
dung der ESC-Funktion. In diesem Unterprogramm wird nur festgelegt, ob 
die ESC-Taste gedrückt wurde. Wie das Programm darauf reagiert, bestimmt 
der Programmierer selbst. 


Hier ist der restliche Teil des ‚„‚Universelle Eingabe“ -Unterprogramms. 


10000 IF LEN (YF$) > 1 THEN YF$ = " “: REM INITIALISIERE YF& WENN 
NOTWENDIG 

10010 YH%A = FEEK (36) + 1: REM H-FOS 

10020 YV%4 = PEEK (37) + 1: REM V-POS 

10100 GOSUB 10500: REM SETZE DAS EINGABE FELD ENTSFRECHEND YF$ UND IN: 
TIALISIERE 

10110 GET z1$ 

10120 IF Zi$ = CHR$ (17) THEN RETURN 

10130 IF Zi$ < > CHR$ (27) THEN 10200: REM ESC 

10140 GOSUB 10500 

10150 FLASH : PRINT "ESC"; CHR® (8);: NORMAL 

10160 7% = - 1: REM ESC FLAG 

10170 GOTO 10110 

10200 IF Z1%$ < > CHR$ (8) THEN 10300: REM LINKER PFEIL 

10210 IF 7% = -1LOR LEN (Z8) < = 1 THEN 16100: REM ABFRAGE ESC ODE 
R EIN ZEICHEN ODER WENIGER 

10220 FRINT CHR$ (8);YFs$: CHR® (8):: REM LODESCHE EIN ZEICHEN 
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10250 7$ = LEFT$ (Z$, LEN (Z#) - 1) 
10240 GOTO 10110 
10500 IF Zi% < " “ THEN 10110: REM 


IGNORIERE ANDERE KONTROLLZEICHEN 
10310 IF 7% = - 1 THEN GOSUB 10500: REM LOESCHE ESCAFE BEDINGUNG 
10320 IF LEN (Z$) < YW THEN 10400 


10330 IF YW = O THEN 10110: REM WIEDERHOLE NICHT WENN LAENGE = 


10340 FRINT CHR$ (8);: REM BEREITS BEI MAXIMALER LAENGE 
10350 IF LEN (Z$) = 1 THEN Z# = "" 

10360 IF LEN (28) > 1 THEN Z$ = LEFT$ (Z$, LEN (Z#) - 1) 
10300 PRINT Zi%;: REM WIEDERHOLE UND FUEGE ZEICHEN HINZU 
10410 Z$ = 7$ + zZ1$ 


10420 GOTO 10110 e 
10500 HTAB YH%: VTAB YV%: FOR Z = 1 TO YW: PRINT YF$;: NEXT : REM BES 
CHREIBE FELD ENTSPRECHEND YF$ 


” 


10510 PRINT " "5: REM UND LOESCHE MOEGLICHEN CURSOR 
10520 IF YW < 2 THEN FOR Z = YW + 1 TO 3: PRINT " ";3: NEXT : REM LOES 


CHE MOEGLICHES ESC WENN FELD NICHT LANG GENUG 
10530  HTAB YH%: VTAB YV% 
10590 78 = "" 
10550 27% = 0 
10560 RETURN 


Wir sehen, daß alle eingegebenen Daten mit einer Textvariable Z$ belegt 
werden. 

Wir schreiben jetzt einige Anweisungen, die uns die Eingabe eines Wortes 
mit vier Buchstaben ermöglichen. Das Platzhalter-Zeichen soll ein Punkt sein. 
Eine Abfrage von ESC (GOTO 4000) ist auch enthalten. Wenn die ESC- 


Taste nicht betätigt wird, kann der Benutzer ein weiteres Wort mit 10 Buch- 
staben eingeben. 


200YW=4: YF$=“.“ 


210 PRINT “GEBEN SIE IHRE LOESUNG EIN: “ 
220 GOSUB 10000 
230: 


240 IF Z%=- 1 THEN 4000: REM ESC-TEST 
260: 


270YW=10: YF$=".“ 


280 PRINT “GEBEN SIE EIN WEITERES WORT EIN: “ 
290 GOSUB 10000 


300 REM PROGRAMM WIRD FORTGESETZT 


3999 STOP 
Starten Sie das Programm und probieren Sie einige Variationen aus. Beant- 
worten Sie anschließend folgende Fragen: 
Frage 2: Versuchen Sie mehr Buchstaben einzugeben als vom Programm 
akzeptiert werden. Was geschieht? 


Was geschieht, wenn die Taste mit dem nach links gerichteten 
Pfeil gedrückt wird? 


Frage 4: Was bewirkt die Eingabe von CTRL C? 
Frage 5: Wie reagiert das Programm auf die ESC-Taste? 


Frage 3: 


IT TUT 


I u 


Ir 





- 


2 2 u 2 


Einige technische Bemerkungen 


Dieses kleine Unterprogramm ist in seinen Auswirkungen sehr leistungsfähig. 
Wenn im Programm kein Zeichen angegeben wird, belegt das Unterprogramm 
in Zeile 10000 die Platzhalter-Variable mit dem vorbestimmten Leerzeichen 
(blank). Die Zeilen 10010 und 10020 führen zum späteren Gebrauch Varia- 
blen für die Curser-Position ein. Das Unterprogramm in Zeile 10500 druckt 
die Platzhalter-Variable auf dem Bildschirm ein und zeigt dadurch, daß nun 
die Eingabe von Daten erwartet wird. 

Die einzige Stelle, an der die Daten direkt eingegeben werden, ist die GET- 
Anweisung in Zeile 10110. Die Dateneingabe erfolgt mit einer Textvariable. 
Deshalb werden sowohl Zahlen und Buchstaben als auch spezielle Symbole 
akzeptiert. Die RETURN-Funktion wird in Zeile 10120, die ESC-Funktion 
in Zeile 10130 abgefragt. Anschließend behandelt das Programm die Lösch- 
prozedur mit der “+“‘-Taste (10200 bis 10230), ignoriert alle unerwünschten 
Zeichen (10300) und überprüft die Länge der eingegebenen Worte und Zahlen 
(10330 bis 10350). 


Frage 6: Welche Funktion hat die Zeile 10410? 





Das Unterprogramm „‚Zahlen Eingabe“ 


Das vorherige Programm kann alle eingegebenen Daten akzeptieren: Zahlen, 
Buchstaben und spezielle Symbole. Wir haben zwei Unterprogramme zur 
Eingabe numerischer Daten entwickelt: ein Unterprogramm zur Eingabe von 
Integer-Zahlen und eins zur Eingabe von Dezimalzahlen. Hier sind die ersten 
Programmzeilen des „Zahlen Eingabe‘-Unterprogramms. Sie werden sowohl 
bei Integer-Zahlen als auch bei Dezimalzahlen benutzt. 


10592 REM 3 EINGABE ZAHL %* 

10593 REM EINGANG: BEDINGUNGEN FUER EINGABE TEXTSATZ 

10594 REM AUSGANG: 2% -1 (ESC); 0 (UNGUELTIG); 1 (GANZE ZAHL); 2 (DEZ 
IMALZAHL) 

10595 REM Z WERT (WENN GUELTIG) 

10599 : 

10800 GOSUR 10000: REM LESE TEXT 

10610 IF 7% = -10R LEN (Z$) = O0 THEN RETURN : REM NUR ESC ODER RE 


TURN (7%=0) 
106820 7% = 1: REM SETZE GUELTIGES ZEICHEN 
1 TO LEN (Z$):Zi% = MID$ (7$,21,1) 





10630 FOR Z1 = 

10640 IF Z18 = "." AND 2% = 1 THEN 2% = 2: GOTO 10660: REM BESTIMMUNG 
DES ERSTEN DEZIMALFUNKTES se 

10650 IF (zi$ < "0" OR Zis > "9") AND (zis < > "-" AND Zi > 1) THEN ZA = 
0: REM  UNGUELTIG WENN KEINE ZAHL ODER EIN "=" ZEICHEN 


106580 NEXT L 
10670 2 = VAL (Z$): REM WERT NUR BEI GUELTIGER FLAG (Z%=1 OR 2) 


10680 RETURN 
10991 
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En 


Die Eingabe von Integer-Zahlen 


Manchmal wird vom Benutzer die Eingabe einer Integer-Zahl innerhalb Se 
bestimmten Intervalls verlangt, z.B. zwischen 1 und 100; für negative Zahlen 
wird das Minuszeichen (-) verwendet. Wir wollen jetzt ein spezielles Be 
programm vorstellen. Der Eintritt in dieses Unterprogramm erfolgt in Zeile 
11000. 


Hier ist das Listing zur Eingabe von Integer-Zahlen: 


10991 : 

10992 REM *# EINGABE GANZE ZAHL *x 

10993 REM EINGANG: BEDINGUNGEN FUER EINGABE TEXT SATZ 
10994 REM YL MINIMALE GANZE ZAHL 

10995 REM 


YH MAXIMALE GANZE ZAHL 

10996 REM AUSGANG: 7% -1 (ESO); 
) 

10997 REM Z -WERT (WENN GANZE ZAHL GUELTIG) 

10999 : 


11000 GOSUR 10500: REM EINGABE ZAHL. 


110160 IF 7% < 1 THEN RETURN : REM ESC ODER UNGUELTIG 

11020 IF 2% = 2 THEN 7% = O: RETURN : REM UNGUELTIG WENN DEZIMALFUNKT 
11030 IF Z < YL OR Z > YH THEN 2% = 0: REM UNGUELTIG WENN AUSSERHALB D 
ER INTERVALLGRENZEN 


11040 RETURN 


0 (UNGUELTIGE AZHLI; 1 (GUELTIGE ZAHL 


Die Eingangsvariablen bestimmen die obere und untere Grenze der Integer- 
Zahlen, weiterhin bestimmen YW und YF$ die Länge des Feldes und das 
Platzhalter-Zeichen. Im folgenden Listing werden die Eingangsvariablen so 
festgesetzt, daß nur eine dreistellige Zahl zwischen 250 und 750 eingegeben 
werden kann. 

200 YW= 3: YF$ = “—“ 

210 YL= 250: YH = 750 

220 PRINT “GIB EINE DREISTELLIGE ZAHL EIN: “ 

230 GOSUB 11000 

240: 


Die Ausgangsvariablen dieses Unterprogramms unterscheiden sich von den 
vorhergehenden. Wird die ESC-Taste gedrückt, dann ist Z% = 1. Wenn die 
eingegebene Zahl in den Bereich zwischen 250 und 750 fällt, wird 2% = 0 
gesetzt. Das bedeutet, daß der Benutzer in seinem eigenen Programm eine 
Überprüfung vornehmen kann. Der Spieler kann so angewiesen werden, eine 
Zahl innerhalb des zufälligen Intervalls anzugeben. Die Variable Z enthält 
die eingegebene und vom Programm akzeptierte Zahl. Die nächsten Pro- 
grammzeilen demonstrieren, wie die Ausgangsvariablen gesetzt werden kön- 
nen: 
250 IF Z%=-1 THEN 5000: REM ESC TEST 


260IF Z%=0 THEN PRINT “BITTE GEBEN SIE EINE ZAHL 
ZWISCHEN“; YL; “UND“; YH; “AN.“: GOTO 200: REM TEST 
OB ZAHL UNGUELTIG 
270 IE Z=N THEN 4000: REM RICHTIGE ANTWORT 
280: 
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Die Eingabe von Dezimalzahlen 
Zur Eingabe von Dezimalzahlen benutzen wir das folgende Unterprogramm: 


11091 
11092 REM ** EINGABE DEZIMALZAHL *% 
11093 REM EINGANG: BEDINGUNGEN FUER EINGABE TEXTSATZ 


11094 REM YL  MINIMALER WERT 

11095 REM YH MAXIMALER WERT 

11096 REM AUSGANG: Z% -1 (ESC); Q (UNGUELTIGI; 1 (GANZE ZAHL); 2 (DEZIMALZ 
AHL) 

11097 REM Z-WERT (WENN GUELTIG) 

11099 ; 


11100 GOSUB 10800: REM EINGABE ZAHL 

11110 IF 2% < 1 THEN RETURN : REM ESC ODER UNGUELTIG 

11120 IF Z< YLORZ > YH THEN Z% = 0: REM UNGUELTIG WENN AUSSERHALB DER IN 
TERVALLGRENZEN 

11130 RETURN 

11191 


Der Eintritt erfolgt in Zeile 11100. Die Eingangsvariablen bleiben erhalten: 
YL und YH für die Intervallgrenzen, YW und YF$ für Feldlänge und Platz- 
halter-Symbol. Die Ausgangsvariable Z% kann einen weiteren Wert an- 
nehmen. Sie erhält den Wert 2, wenn die eingegebene Zahl einen Dezimal- 
punkt enthält. Ansonsten ist ihre Funktion die gleiche wie im vorherigen 
Unterprogramm. 


Das „J/N“-Unterprogramm 


Eine besondere Form der Dateneingabe liegt vor, wenn nur ein einzelner 
Buchstabe benötigt wird. Ein typischer Fall ist: 


MOECHTEN SIE INFORMATIONEN (J/N): 


Das nachfolgende spezielle Unterprogramm akzeptiert nur die beiden Buch- 
staben J und N: 


11191 

11192 REM *%* EINGABE J ODER N ** 

11193 REM EINGANG: CURSOR UND YF$ GESETZT 

11194 REM AUSGANG: 2% -1 (ESC); Q (WEDER J NOCH N): 1 (9, 2 


11199 : 
11200 Ys = "IN": REM BENUTZE UNTERFROGRAMM ZUR EINGABE EINES EINZELNEN ZEIC 


(N) 


HENS 

11291 

11292 REM x**+ EINGABE EINES EINZELNEN ZEICHEN UND VERBINDEUNG MIT GUELTIGEM 
TEXT xx 

11293 REM EINGANG:CURSOR UND YF& GESETZT 

11294 REM Ys TEXT VON VERBINDUNGSZEICHEN 


11295 REM AUSGANG: 7% -1 (ESCI: 0 (ZEICHEN NICHT IM TEXTSATZI; J (J’TES ZE 
ICHEN IM VERBINDUNGSTEXT) 

11299 : 

11300 YW = 1: REM SETZE FELD-LAENGE 

11310 GOSUB 10000 

11320 IF 7% = -10R LEN (Z$) = O THEN RETURN : REM NUR ESC ODER RETURN 
2%4=0) 

11330 7% = Q: REM SETZE ZEICHEN FUER NICHT VERBUNDEN 

11330 FOR Z1 = 1 TO LEN (Ys) x 

11350 IF Z$ = MID$ (Y$,Z1.1) THEN Z% = Zi: REM VERBINDE MIT POSITION Z1 

11360 NEXT 65 

11370 RETURN 


Anwendung des „J/N‘-Unterprogramms 


Das Programm akzeptiert nur J für Ja und N für Nein. Zur Anwendung ge- 
nügen die folgenden Zeilen: 


200 YF$ = “-“; REM PLATZHALTER-SYMBOL 
210 GOSUB 11200 
220: 


Die Ausgangsvariable Z% erhält den Wert -1, wenn die ESC-Taste benutzt 
wurde. Sie ist Null, wenn weder J noch N gedrückt wurde. Gibt der Benutzer 
J ein, erhält sie den Wert 1. Bei Eingabe von N wird Z% = 2 gesetzt. Die Ab- 
frage von Z% nach Verlassen des Unterprogramms kann wie folgt aussehen: 


230 IF Z%=-1 THEN 5000: REM ESC TEST 

240 IF Z%=0 THEN PRINT: PRINT “BITTE GEBEN SIE NUR ] 
ODER N EIN“: GOTO 200: REM NICHT-GUELTIGE EINGABE 

250IF Z%=1 THEN GOSUB 8000: REM DRUCKE INFORMA- 
TIONEN WENN J EINGEGEBEN 

260 REM FORTSETZUNG DES PROGRAMMS 


Das Unterprogramm ‚„‚Einzelne Zeichen Eingabe“ 


Ein weiteres Unterprogramm von EINGABE EINHEIT gibt uns die Möglich- 
keit, jeden beliebigen Buchstaben einzugeben, nicht nur J oder N. Das Unter- 
programm beginnt in Zeile 11300. Vor dem Aufruf des Unterprogramms 
muß wieder die Platzhalter-Variable YF$ spezifiziert werden. Y$ enthält 
diesmal alle Zeichen, die akzeptiert werden sollen. Wenn wir zum Beispiel 
die Eingabe der Buchstaben A, E, I, O und U erlauben, werden die Variablen 
vie folgt bestimmt: 
| RSONESZI—: 

260 Y$ = “AEIOU‘“ 

270 PRINT “GIB EINEN BUCHSTABEN EIN: “; 

280 GOSUB 11300 


Die Ausgangsvariable ist immer noch Z%, doch ihr Zahlenwert hat jetzt eine 
andere Bedeutung erhalten. Ist 2% = - 1, wurde die ESC-Taste gedrückt. Der 
eingegebene Buchstabe ist ungültig, wenn Z% den Wert Null annimmt. Sonst 
ist Z% immer eine positive Zahl, die uns die Nummer des Buchstabens in Y$ 
angibt. Zum Beispiel hat der Buchstabe I die Nummer 3, da I der dritte 
Buchstabe in Y$ ist (AEIOU). 


Das Unterprogramm „Pause oder Tastendruck“ 
Nachdem der Spieler eine Antwort eingegeben hat, erhebt sich die Frage: 
Wie lange soll das Programm mit der Reaktion warten? 


Der Computer könnte zum Beispiel antworten: “DIESER BUCHSTABE IST 
NICHT GUELTIG“ oder “WAEHLE EINE ZAHL ZWISCHEN 1 UND 40“ 
oder irgendetwas ähnliches. Der Spieler benötigt Zeit, um diese Antworten 
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u; 


zu lesen und zu verarbeiten. Erst danach kann das Programm fortfahren. Bei 
einer kurzen Pause hat besonders der unerfahrene Spieler zu wenig Zeit zur 
Verfügung. Ist die Pause zu lang, werden die fortgeschrittenen Spieler unge- 
duldig. Mit dem „Pause oder Tastendruck“-Unterprogramm können wir eine 
für Anfänger ausreichend lange Pause in unser Programm aufnehmen. Die 
Pause kann aber durch Betätigen einer Taste sofort beendet werden. Im allge- 
meinen fragt das Programm anschließend nach einer neuen Eingabe. Die be- 
reits gedrückte Taste wird als Teil der neuen Eingabe angesehen. 

Wir empfehlen den Einbau dieser Eingabe-Möglichkeiten in die Spielprogram- 
me. Lassen Sie den Spieler diese Tastenfunktion selbst entdecken. Wir 
glauben, daß diese Möglichkeit nicht durch zusätzliche Bedienungshinweise 
erklärt werden muß. Es verwirrt bloß den Anfänger, und der Bildschirm wird 
unübersichtlich. Dieses Unterprogramm kann aus EINGABE EINHEIT 
herausgelöst werden und als selbständige Einheit in Spielprogrammen einge- 
setzt werden. 

1139 : 

11392 


11395 


*4 PAUSE FESTE LAENGE ODER BIS TASTENDRUCK #% 
EINGANG: YF LAENGE DER PAUSE IN INTERNEN ZEITEINHEITEN 
0 MARTE AUF TASTENDRUCK 





AUSGANG: ZU -1 {ESO); O (PAUSE ABGELAUFEN); 1 (TASTENDRUCK BEVO 

R E ABGELAUFEN) 

11396 Z TASTENDRUCK (ASCII-WERT + 128) 

11399 : 

11300 FOKE - 163698,0: REM LOESCHE BISHERIGES ZEICHEN 

11410 Zi = 0: REM INITIALISIERE ZAEHLER (* EINGANG FUER EINZELNE TASTEN#) 

11420 Zi = Zı + 1 

11430 2 = PEEK ( - 16384) 

11440 IF 7» = 128 THEN Z% = 1 - 2% (Z = 155): RETURN : REM TASTENDRUCK; A 
BFRAGE FUER ESC DANN RETURN 

11456 IF Zi YP OR YP = O0 THEN 11420 

11480 7% = 0: REM FAUSE ABGELAUFEN 


Die Eingangsvariable YP ist gleich Null, falls sie nicht anders festgelegt wird. 
Wenn YP = O gilt, muß der Benutzer eine Taste drücken, um das Spiel fort- 
setzen zu können. Ansonsten gibt YP die Länge der Pause in rechnerinternen 
Zeiteinheiten an. Probieren Sie einige Werte für YP aus. 

Die Ausgangsvariable Z% hat den Wert -1, wenn die ESC-Taste gedrückt 
wurde. Sie nimmt den Wert O an, wenn die Pause abgelaufen ist, und erhält 
den Wert 1, wenn der Spieler eine Taste vor Ablauf der Pause betätigt. Hier 
ist ein Beispiel, das zeigt, wie die Ein- und Ausgangsvariablen im Programm 
angewendet werden: 


300 REM INFORMATIONEN 

310: 

320 LET YP = 100 

330 GOSUB 11400 

340: 

350 IF Z% =- 1 THEN 5000: REM ESC TEST 

360 IF Z%=0THEN PRINT “WENN SIE MEHR ZEIT BENOETIGEN, 
FRAGEN SIE IHREN LEHRER!“: GOTO 300 

370 REM FORTSETZUNG DES PROGRAMMS 67 


Das Unterprogramm „Tastendruck ohne Wiedergabe“ 


Ein weiteres, allgemeines Problem ergibt sich aus der Frage: Wie lange soll 
man nach dem Ausdruck von Informationen oder anderen Mitteilungen war- 
ten? Die Lesefähigkeiten der Spieler oder der Grad ihrer Vertrautheit mit 
dem Spiel sind oft recht unterschiedlich. Deshalb ist es wünschenswert, daß 
der Spieler dem Programm selbst mitteilt, wann es weitergehen soll, und 
zwar durch Tastendruck. Das ist eine bessere Lösung, als den Programmierer 
die Länge der Pausen im voraus abschätzen zu lassen. 

Es gibt zwei Versionen dieses Unterprogramms. Die erste heißt: „Tasten- 
druck ohne Wiedergabe, ohne vorheriges Zeichen‘. Sie beginnt in Zeile 
11500. Das zweite Unterprogramm „Tastendruck ohne Wiedergabe, mit vor- 
herigem Zeichen‘ beginnt in Zeile 11600. Beide Programme warten auf die 
Eingabe, bis eine Taste betätigt wird (das zusätzliche RETURN ist nicht er- 
forderlich). Das zugehörige Zeichen wird aber nicht auf dem Bildschirm 
wiedergegeben. Im Gegensatz zum „Pause oder Tastendruck‘-Programm 
wird das eingegebene Zeichen anschließend sofort gelöscht. Das Zeichen ist 
also nicht ein Teil der folgenden Dateneingabe. Die Ausgangsvariable Z% be- 
trägt wieder -1, wenn die ESC-Taste betätigt wurde. Nach Gebrauch einer 
anderen Taste ist Z% = 1. Die Variable Z erhält den ASCII-Wert der gedrück- 
ten Taste zuzüglich 128. Eingangsvariablen sind keine vorhanden. 

Der Unterschied zwischen den beiden Unterprogrammen besteht in der Mög- 
lichkeit eines vorangehenden Tastendrucks. Die APPLE-Hardware besitzt 
eine „Ein-Zeichen-Memory‘“, die jeweils einen Zustand entsprechend dem 
Wert der zuletzt gedrückten Taste einnimmt. Das Einlesen von der Tastatur 
bedingt das Warten auf die Festlegung dieses Zustandes, das Ablesen des ein- 
gegebenen Zeichens und schließlich das Löschen des vorherigen Speicherzu- 
standes. Damit wird angezeigt, daß keine weitere Taste gedrückt wurde. (Im 
APPLE Il-Handbuch finden sich nähere Einzelheiten.) Das Unterprogramm 
„ohne vorheriges Zeichen‘ ab Zeile 11500 löscht zuerst den bisherigen 
Speicherinhalt und wartet dann auf den nächsten Tastendruck. Durch das 
Löschen des Speicherinhalts ist der Benutzer nun gezwungen, nach dem Aus- 
druck von Informationen (oder anderer Dinge) eine Taste zu betätigen. An- 
schließend wartet das Programm noch einmal auf einen Tastendruck. Das 
Unterprogramm „mit vorherigem Zeichen“ gibt dem Benutzer die Möglich- 
keit, die Pause vorwegzunehmen bzw. sie zu vermeiden. Die Pause wird aller- 
dings auch dann übersprungen, wenn der Benutzer aus Unaufmerksamkeit 
eine zusätzliche Taste betätigt. Für die Anwendungen dieses Kapitels empfeh- 
len wir die Benutzung des Unterprogramms „mit vorangehendem Zeichen‘. 
Für interessierte Leser weisen wir darauf hin, daß eine andere Version dieses 
Unterprogramms in dem Spiel SIMON in Kapitel 7 benutzt wird. In Zeile 
3000 des SIMON-Listings wird die nächste Musiknote abgefragt. Das THEN- 
Kommando entscheidet anschließend, an welcher Stelle die Note wiederge- 
geben wird. 
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In den Programmen aus Kapitel 1 bis 4 haben wir keine der hier beschriebenen 
Techniken zur Dateneingabe benutzt. Wenn der Leser einige der früheren 
Programme verwenden möchte, müssen diese mit dem Programm EINGABE 
EINHEIT verbunden und die notwendigen Anpassungen in Bezug auf die 
Ein- und Ausgangsvariablen vorgenommen werden. 


Zusammenfassung der Unterprogramme zur Dateneingabe 


Zur Benutzung der Unterprogramme ist es am einfachsten, EINGABE EIN- 
HEIT vollständig mit den eigenen Programmen zu verbinden. Wird nur das 
„Pause oder Tastendruck‘-Unterprogramm benötigt, kann der Rest von 
EINGABE EINHEIT gelöscht werden. Das vollständige Unterprogramm 
EINGABE EINHEIT benötigt jedoch nicht viel Speicherplatz. Es lohnt sich 
kaum, dieses in Teile zu zerlegen und nur die benötigten Teile mit dem 
eigenen Programm zu verbinden. Verwenden Sie das ganze Programm. Das 
ist viel einfacher! 


Unterprogramm „Universelle Eingabe“ 


Aufruf: GOSUB 10000 

Eingangsvariablen: YW: Feldlänge 
YF$: Platzhalter-Symbol (wenn kein Wert bestimmt 
wird, ist YF$ das Leerzeichen) 

Ausgangsvariablen: Z$: Eingegebener Text 
Z%: — 1 (ESC); 0 (nicht ESC) 


Unterprogramm „Zahlen Eingabe“ 


Dieses Unterprogramm benötigt das „Universelle Eingabe‘-Programm. 


Integer Zahlen: 
Aufruf: GOSUB 11000 
Eingangsvariablen: YW: Feldlänge 
YF$: Platzhalter-Symbol 
YL: Minimaler Wert 
YH: Maximaler Wert 
Ausgangsvariablen: Z: Zahlenwert i 
Z%: —1 (ESC); 0 (ungültige Integer-Zahl); 1 (gültige 
Integer-Zahl) 
Dezimalzahlen: 
Aufruf: GOSUB 11100 
Eingangsvariablen: YW: Feldlänge 
YF$: Platzhalter-Symbol 
YL: Minimaler Wert 
YH: Maximaler Wert 
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Ausgangsvariablen: Z: Zahlenwert 


Z%: —1 (ESC); O (ungültige Zahl); 1 (gültige Integer- 
Zahl); 2 (Dezimalzahl) 


Unterprogramm ,„J/N“ 


Dieses Unterprogramm benötigt das „Universelle Eingabe‘‘-Programm. 
Aufruf: GOSUB 11200 

Eingangsvariable: YF$: Platzhalter-Symbol 

Ausgangsvariable: Z%: —1 (ESC); O (weder J noch N); 1 (J); 2 (N) 


Unterprogramm „Einzelne Zeichen Eingabe“ 


Dieses Unterprogramm benötigt das „Universelle Eingabe‘-Programm. 
Aufruf: GOSUB 11300 
Eingangsvariablen: Y$: enthält zulässige Zeichen 

YF$: Platzhalter-Symbol 


Z% -1 (ESC); 0 (Zeichen ist nicht in YF$ enthalten); 
J (Zeichen steht in der j’ten Position in YF$) 


Ausgangsvariable: 


Unterprogramm „Pause oder Tastendruck“ 
Aufruf: GOSUB 11400 
Eingangsvariable: YP: Länge der Pause 


Ausgangsvariable: Z%: -1 (ESC); O (Pause abgelaufen); 1 (Tastendruck 
bevor Pause abgelaufen) 


Unterprogramm „Tastendruck ohne Wiedergabe, ohne vorheriges Zeichen“ 
Aufruf: GOSUB 11500 
Eingangsvariable: Keine 
Ausgangsvariablen: Z%: -1 (ESC); 1 (anderer Weg) 
Z: ASCII-Wert des Tastendrucks + 128 


Unterprogramm „Tastendruck ohne Wiedergabe, mit vorberigem Zeichen“ 
Aufruf: GOSUB 11600 
Eingangsvariablen: Keine 
Ausgangsvariablen: Z%: -1 (ESC); 1 (anderer Weg) 
Z: ASCII-Wert des Tastendrucks + 128 
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Zusammenfassung von Kapitel 5 


In diesem Kapitel haben wir bereits die dritte Programmeinheit vorgestellt, 
die der Leser zum Schreiben von eigenen Spielprogrammen verwenden kann. 
Aber auch für andere Programme ist dieses Unterprogramm EINGABE EIN- 
HEIT hervorragend geeignet. Es erlaubt die vollständige Kontrolle über alle 
Daten. Wir können festlegen, welches erlaubte und gültige Dateneingaben 
sind. In den Spielprogrammen der nun folgenden Kapitel werden wir zeigen, 
wie wir die Unterprogramme zur Dateneingabe angewendet haben. 


Lösungen zu Kapitel 5 


Fragel: 200 YW = 10: YF$ = “‘=“ 
210 PRINT “GIB EIN WORT MIT 10 BUCHSTABEN EIN: “; 
220 GOSUB 10000 


Frage 2: Das letzte Zeichen wird gelöscht und durch den zuletzt getippten Buchstaben 
ersetzt. Es können nicht mehr Zeichen als erlaubt eingegeben werden. 

Frage 3: Die letzten Zeichen werden gelöscht und können durch neue Zeichen über- 
schrieben werden. Damit kann der Benutzer falsch eingegebene Daten korri- 
gieren. 


Frage 4: Es geschieht nichts. Die CTRL-Taste wird ignoriert. 


Frage 5: Die ESC-Schrift leuchtet solange auf dem Bildschirm auf, bis eine andere 


Taste betätigt wird. Wenn Daten eingegeben werden sollen, wird die ESC- 
Taste gelöscht. Die eingegebenen Daten werden akzeptiert. 


Frage 6: Der Ausgangstext Z$ wird erstellt. Ein Zeichen nach dem anderen wird mit 


Z$ verknüpft. 
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Kapitel 6 
Wortspiele 





„ie Behandlung von Textvariablen, oder das Arbeiten mit Texten, die vom 
Benutzer beim Spiel eingegeben werden, ist das Grundgerüst einiger „Klassi- 
scher‘‘ und höchst interessanter Computerspiele. Obwohl durch die tech- 
nischen Neuerungen Möglichkeiten für Farbe, Grafik und Klang geschaffen 
wurden, bleiben die Wortspiele weiterhin faszinierend, zum Spielen wie auch 
zum Programmieren. 

Dieses Kapitel behandelt Wortspiele, die von den Textbearbeitungsmöglich- 
keiten des APPLE Gebrauch machen, und erläutert, wie ein Spiel einer be- 
stimmten Spielerrunde angepaßt wird. Wir werden drei Typen von Wort- 
spielen behandeln: Konstruieren von Geschichten, Wörter raten und Wörter 
verbinden. Für jeden Typ werden vollständige Spiele entwickelt. Anschließend 
werden die Funktionen einzelner Programmteile erläutert. 


Story 


STORY stellt eine Reihe von Fragen und fügt die Antworten in ein vorher 
festgelegtes Format. Die Struktur des Spiels läßt viele Möglichkeiten offen 
und kann je nach Teilnehmerkreis modifiziert werden. Das Programm er- 
zeugt aus gegebenen Antworten lustige Satzkombinationen nach Art einiger 
bekannter und beliebter Kinderspiele. 


10 REM ...STORY-EINGABE BILDER 
ı1: 

997% 

998 REM 44 INITIALISIERUNG *x 
SER 


1000 DIM RrE(i10,10): REM MAXIMALE ANZAHL DER ZUFAELLIGEN GRUFFEN * MAXIMALE 
ANZAHL DER FRAGEN IN JEDER GRUFPE 

010 DIM NR{10}: REM AKTUELLE ANZAHL DER FRAGEN IN JEDER GRUFFE 

1920 DIM Astioı: REM MAXIMALE IAHL DER ANTWORTEN 

1197 : 

1198 Re #& TITELRBILD & 

1199 : 

1200 GR > HOME : COLOR= 13: GOSUB 15500: REM LOESCHE MIT WEISS 
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12109 COLCR= 6: RZ = 11 TO SSISTEPTLIRTZREM BLAUE LINIEN 










FO 
220 HLIN 0,39 ATZ -8 
1250 HLIN 0,39 AT Z 
1240 NEXT 
1250 x# = 4:XCX1) = 0: GOSUB 15300 


1260 ı8 
1270 xs% 


* 
"+ 11: GOSUB 







nah 








12860 VTAB 25: HTAB TURN GEHT ES WEITER.."; 
1290 GISUB 11500: REM WARTE AUF TASTENDRUCK 

1500 IF ZA= - 1 THEN END : REM ESC 

1997 : 

1998 REM 1% INITIALISIERUNG FUER NAECHSTE STÜRY 

1999 ; 

2009 TEXT : HOME 

zuı0 7 = 31000; GCSUR 19000: REM SETZE DATA-ZEIGER AUF ZUFALLSSRURFEN 
2097 : 

2098 REM * LADE ZUFALLSTEILE VON STORY & 

2099 ; 

2100 RP=.0 


2119 J=0 

2120 READ Z&: REM  % SETZE RICHTIGE SATZFOLGE MIT NEUER GRUPFE 

2200 RP = RP + I: REM  NAECHSTE GRUPPE VON SATZTEILEN 

2210 J = 0: REM ZAHL DER SATZTEILE IN AKTUELLER GRUPPE 

22350 IF 2% = "END" THEN 2300 

2220 J=J +1 

2250 RP$(RP,3) = Z#: REM  SFEICHERE SATZTEIL 

2260 READ 2% 

2270 GOTO 2230 

0 NR{RP} = J: REM ZAHL DER ZUFALLSTEILE IN GRUPFE RF 

2310 READ Z8: REM UEBERFRUEFE ZWEITES "END" 

2320 IF 2% = "END" THEN 2500: REM KEINE WEITEREN ZUFALLSTEILE 

2330 GOTO 2200: REM RICHTIGE SATZKONSTRUKTION. BEGINNE MIT NEUER GRUFFE 

2497 ; 

2895 REM &* STELLE FRAGEN UND SPEICHERE DIE ANTWORT * 

2499 : 

2500 Na = Q 

2510 HTAB 14: FRINT "43% STORY #43" 

2520 VTAB 22: HTAB 11: PRINT "DRUECKE ";: INVERSE : PRINT 
" FUER PROGRAMMENDE. "; 

2500 READ 0%: REM UEBERPRUEFE OR WEITERE FRAGEN 

2610 IF O& = "END" THEN 3000: REM KEINE WEITEREN FRAGEN 

2620 NQ = NQ + 1: REM WEITERE FRAGEN 

2630 VTAB 2 # NO + 4: HTAB 1: PRINT 085" "; 

2640 YW = 39 - LEN (O8): REM MAXIMALE LAENGE DER ANTWORT 

2650 GOSUB 10000 = 

2550 FZ% = - 1 THEN 8000: REM E 

2570 hr en (28) = E THEN 2650: REM SCHLEIFE FUER KEINE ANTWORT 

2630 As(NO) = Z$: REM  SFEICHERE NAECHSTE ANTWORT 

2690 GOTO 2600 

2997 ; 

2998 REM **X SCHREIBEN VON STORY #* 

2999 : 

3000 HOME : REM  FAUSE VOR DEM SCHREIBEN DER GESCHICHTE 

3010 SPEED= 10 

3020 VTAR 11: HTAR 9 








"ESC";: NORMAL 


on 


PRINT 


3030 PRINT "HIER IST DEINE GESCHICHTE."; CHRS (75"."; CHRS (D;"."; CHR$ (7) 


3040 SPEED= 255 e 
3050 YP = 50: GOSUB 11400: REM PAUSE ODER TASTENDRUCK 
0: 
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3092 REM % SCHREIBE GESCHICHTE AUS DEN SATZTEILEN DER DATA-ANWEISUNGEN x 
3095 REM SCHLEIFE FUER WOERTER,DIE AM ENDE DER ZEILE ABGESCHNITTEN WERDEN 
30997 


3100 L = 3: REM LINKER RAND (FUER TEXTFENSTER) 
S110O W = 34: REM BREITE 

3120 T = 4: REM OBERSTE ZEILE 

5130 B = 20: REM UNTERSTE ZEILE 


5140 FOKE 32,L: REM SETZE TEXTFENSTER 

3150 REM SETZEN DER BREITE IST UNNDETIG 

5160 POKE 34,T 

3170 FOKE 35,8 

3180 HÜME : REM BEWEGE CURSOR ZUR UNTEREN LINKEN ECKE DES FENSTERS 
5200 S$ = ""; REM INITIALISIERE BILDSCHIRM-ZEILE 

5210 READ 7%: REM NAECHSTES STORY ELEMENT 

3220 IF Z%$ = "END" THEN 3900: REM ENDE VON STORY 


3250 IF LEFT$ (78,1) = "#" THEN 3500: REM BENUTZE SFEZIFIZIERTE ANTWORT NU 
MMER 

3240 IF LEFT$ (7,1) = "S" THEN 3600: REM BENUTZE ZUFALLSTEIL DER ANGEGEBE 
NEN GRUFFE 


3300 S$ = S$ + Z$: REM VERBINDE STORY TEILE 

3510 IF LEN (S$) < = W THEN 3210: REM BILDSCHIRMZEILE NOCH NICHT GANZ VOL 
L 

3320 Z=W+ 1: REM VERSUCHE DIE ZEILE NACH DEM AM WEITESTEN RECHTS STEHENDE 
N LEERZEICHEN ABZUBRECHEN 

3530 REM STARTE MIT DEM ERSTEN BUCHSTABEN UNTERHALB DER MAXIMALEN LAENGE 

3340 IF Z = 1 THENZ = W+ 1: GOTO 3400: REM KEINE LEERZEICHEN VORHANDEN; BE 
NUTZE MAXIMALE LAENGE 

3350 IF MID$ (S$,Z,1) = " " THEN 3400: REM LEERZEICHEN IN FOSITION Z GEFUN 
DEN 

3560 2=7-1 

3370 GOTO 3340 

5400 FRINT LEFT® (S#,Z - 1): REM UNTERBRECHE DIE ZEILE BEIM 2"TEN ZEICHEN 

s410 IF Z = LEN (S$) THEN 3200: REM ES SLEIBT NICHTS UEBRIG 

3420 S$ = RIGHT$ (S$, LEN (S$) - DI: REM REST DER ZEILE 

3430 GOTO 3310: REM UEBERFRUEFE OB NOCH ZU LANG 

3500 Z$ = Ast VAL ( RIGHT® (Z$, LEN (78) 1))): REM BENUTZE SPEZIFIZIERTE A 
NTWORT NUMMER 

3510 GOTO 3300 

3600 7 = VAL ( RIGHT$ (Z$, LEN {Z$) - 1)): REM ZUFALLSSRUFFE BESTIMMT 

S610 Z$ = RP$(Z,1 + INT (NR(Z) & RND (13): REM WAEHLE EIN ZUFALLSELEMENT 

3620 GOTO 3300 

3900 IF LEN (S$) > O THEN FRINT S$: REM x ENDE VON STURY — DRUCKE RESTLI 


' 


HEN TEIL * 
3910 TEXT : REM VOLLES TEXTFENSTER 
3997 : 
5998 REM xt NOCH EINMAL? &*+ 
39997 : 


6000 HTAR 1: VTAB 24 

6010 FRINT "EINE WEITERE GESCHICHTE (J ODER N)? "; 

6020 GOSUR 11200: REM J/N 

6030 ON 2% + 2 GOTO 8100, 5000,2000,6100: REM EST. UNGUELTIG, J, N 
6100 PRINT : PRINT 

6110 PRINT "DANKE FUER’S MITSFIELEN."; 

6120 END 

50991 : 

50992 REM * ZUFAELLIGE SATZTEILE,MIT "END" ABGESCHLOSSEN * 

50993 REM JEDE GRUFFE ENDET MIT "END" 


50994 REM ZUFALLSGRUPPEN ’51000 DATA "END", "END" ' 

50999 : 

51000 DATA "AM KARNEVAL" „ "IN EINER DUNKLEN NACHT", "END": REM x GRUFFE 
1% 
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S1010 DATA "RANNTEN", "SASSEN" „ "FOKERTEEN", "END": REM * GRUFPE 2 & 


51020 DATA "AM STRAND" ‚„ "IN DEN BERGEN" „ "IN EINEM JAGDHAUS" „ "IN 
DER SCHULE", "IN DER WUESTE", "END": REM * GRUFFE S # 

510390 DATA "HOERTEN", "BEMERKTEN", "END": REM * GRUFFE 4 # 

S1040 DATA "SCHLEIMIGE", "GROSSE", "STRUFPIGE", "WILDE", "END": REM * GRU 
ERERSeX 

S1050 DATA "FLIRTETEN", "SPIELTEN SCHACH", "ERZAEHLTEN SICH GESCHICHTEN", " 
FPOKERTEN " ‚, "STREITETEN" ‚„ "END": REM * GRUFFE & & 

S1060 DATA "BRACHTE IHNEN ALLEN EINEN GEBURTSTAGS-KUCHEN", "FLOG MIT IHNEN 


IN EINEM HUBSCHRAUBER VON DANNEN", "SANG IHNEN EIN SCHLAFLIED", "END": REM 
* GRUFFE 7 X 
51070 DATA "END": REM ENDE DER ZUFALLSGRUFFEN 
51991 : 
51992 REM * FRAGENTEIL,WIRD MIT "END"ABGESCHLOSSEN % 
51999 ; 
52000 DATA "WIE IST DEIN NAME?" 
52010 DATA "WAS IST DEINE LIEBLINGSFARBE?" 
52020 DATA "WEN MAGST DU BESONDERS GERN?" 
52030 DATA "WELCHE TIERE FUERCHTEST DU?" 
52040 DATA "WER IST DEIN BESTER FREUND?" 
52050 DATA "END" 
52991 : 
52972 REM + STORY, ENDET MIT "END" & 
52993 REM ART DER DATEN: 





52994 REM "#NUMMER" = DRUCKE ANTWORT NUMMER 

52995 REM "SNUMMER" = DRUCKE EINEN SATZTEIL AUS GRUPPE NUMMERS 
52996 REM "END" = ENDE VON STORY(WIRD NICHT GEDRUCKT) 
32997 REM SONSTIGES = DRUCKE ALS TEXTVARIABLE 

52999 : 

53000 DATA £, VAT r) 

53010 DATA % "uns" 

53020 DATA wNgzU 7 BEGEITZIEI GES 

53030 DATA ST. 

53040 DATA ARZENE 0 ST 

53050 DATA MM DLESL 

53060 DATA “A2","EN "RA" 

53070 DATA "ABER " „"56"," MIT IHNEN,DOCH DANN KAM " 
53080 DATA "HI" 

53090 DATA MEUNDT AB ZELL 

53100 DATA "END" 

60000 : 


60010 REM &* COPYRIGHT 1981 BY HOWARD FRANKLIN, PALO ALTO, CA # 
60020 : 


Verbinden Sie dieses Programm mit BILD EINHEIT. Speichern Sie es mit 
dem Befehl SAVE STORY und tippen Sie RUN. 

Dem Programm liegt das original STORY-Programm zugrunde. Es wurde neu 
überarbeitet, um Eingabe-Überprüfungen und Bildschirm-Formatierung mit 
aufzunehmen. STORY wurde im Community Computer Center geschrieben 
und erschien 1976 erstmals in einer amerikanischen Computer-Zeitschrift. 
STORY wurde als lustiges Spiel entworfen, soll jedoch ebenso eine nützliche 
Sprachübung für Leseanfänger sein. Die Fragen in diesem Spiel sind von per- 
sönlicher Art. Kinder merken sich sehr leicht ihre Antworten. Auf diese 
Weise ist es nicht schwierig für sie, die Geschichte, die der Computer ausgibt, 
zu lesen. Das Spiel STORY fragt nach Antworten auf bestimmte Fragen, 
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fast wie in einem kleinen Gespräch, und unterscheidet sich so von anderen 
Spielen dieser Art. 

Auch gibt es bei STORY weder Gewinner noch Verlierer, im Gegensatz zu 
den mehr traditionellen Spielen. Daher empfinden größere Kinder und sogar 
Erwachsene Freude an diesem Spiel. Es kann als eine spielerische Hinführung 
zu Computern angesehen werden, die viel Spaß bereitet. In der Tat kann 
STORY von erfahrenen Spielern auch leicht zu einer „Einführung in das 
Programmieren‘ abgewandelt werden. Nach mehrmaligem Benutzen des Pro- 
gramms kann man ein bestimmtes Muster in der Konstruktion der Geschich- 
ten erkennen und beginnt so, die Arbeitsweise des Programms zu verstehen. 
Basierend auf den Erfahrungen mit STORY, kann den Benutzern dieses 
Spiels die Funktionsweise von Computerprogrammen erläutert werden. Die 
Fragen sind so gestellt, daß sowohl ein einzelnes Wort als auch längere For- 
mulierungen als Antworten möglich sind. Entsprechen die Antworten ın 
grammatikalischer Hinsicht den gestellten Fragen, so fügen sie sich sauber in 
den anschließenden Aufbau der Geschichte ein. Die Länge der Antworten 
ist jedoch begrenzt, wie man aus Programmzeile 2640 ersehen kann. 


Frage 1: Was wird geschehen, wenn Sie eine Frage so ändern, daß diese aus 
45 Zeichen besteht? 

Frage 2: Wie würden Sie das Programm ändern, um andere Fragen zu 
stellen? 


Das zufällige Abbrechen eines Wortes am Ende einer Zeile, auch das konti- 
nuierliche Weiterschreiben am Beginn der nächsten Zeile, wollen wir an dieser 
Stelle einmal mit „Überschreiben‘‘ benennen. Dieses Überschreiben kann 
sehr ärgerlich sein. Bedauerlicherweise leiden noch immer viele mit Texten 
arbeitende Programme daran. Ein Programmteil (Prozedur) von STORY ver- 
hindert dieses Überschreiben am Bildschirm. Die Prozedur überprüft den 
freien Raum (am Ende des Wortes) und unterbricht die Zeile an geeigneter 
Stelle. Vielleicht möchten Sie diese Prozedur in anderen, von Ihnen ge- 
schriebenen Programmen benutzen? 


Frage 3: Welcher Teil behandelt das Problem des Überschreibens am Bild- 
schirm? 


STORY sollte stets dem speziellen Benutzerkreis angepaßt werden. Formulie- 
rungen, Inhalt und Länge der Geschichte müssen den Lesefertigkeiten und 
der Erfahrung bzw. dem Wissen der Mitspieler entsprechen. 


Wir zeigen nun, wie Teile des Textes einer Geschichte geändert werden kön- 
nen. Dazu sehen wir uns die Programmzeilen 50000 bis 51070 an. Sie ent- 
halten zufällig ausgewählte Ausdrücke und Redewendungen für die Geschich- 
te. Jede Folge solcher Satzteile endet mit dem Wort “END, gefolgt von 
einer REM-Anweisung. (Das Wort “END“ ist unbedingt erforderlich, die 
REM-Anweisung kann natürlich auch weggelassen werden.) Beispiel: 


51000 DATA “AM KARNEVAL“, “IN EINER DUNKLEN NACHT", 
“END“: REM *RANDOMI* 
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Zeile 51000 zeigt also, daß in RANDOMI nur zwei Möglichkeiten für eine 
zufällig ausgewählte Redewendung angeboten werden. Unser Programm be- 
sitzt sieben solcher Zusammenstellungen von Satzteilen. 


Frage 4: Wie viele Auswahlmöglichkeiten gibt es bei der dritten Zusammen- 
stellung? 


Man kann den Text einer Geschichte ändern, indem man die Ausdrücke in 
diesen Zusammenstellungen ändert. Hierbei muß beachtet werden, daß die- 
selbe Struktur wie im Programm benutzt wird. Den Aufbau einer Geschichte 
zu ändern, erweist sich als etwas schwieriger. Eine Geschichte wird nach 
folgendem Schema aufgebaut: 


52992 REM * STORY, ENDET MIT "END" %* 
52993 REM ART DER DATEN: 


52994 REM "#NUMMER" DRUCKE ANTWORT NUMMER 





REM "SNUMMER" = DRUCKE EINEN SATZTEIL AUS GRUPFE NUMMERS 
REM "END" = ENDE VON STORY (WIRD NICHT GEDRUCKT) 
REN SONSTIGES = DRUCKE ALS TEXTVARIABLE 
DATA nBgnnon ngzu nn, 
DATA "41", UND ","N5" 
DATA “n,ngzn,®, PLOETZLICH " 
DATA "84"," SIE VIELE ",@55%, 0% 
DATA HZ" VE "na" 
DATA ". DIE " 
DATA "#2", "EN "044" 
53070 DATA " ABER " ,„"86"," MIT IHNEN,DOCH DANN KAM" 
53080 DATA "#3" 
53090 DATA " UND ","87","." 


53100 DATA "END" 


Die Zeilen 52994 bis 52997 zeigen, wie eine solche Geschichte Ss AnET 
Es folgt der formale Aufbau der zu spielenden Geschichte. Um den Aus ae 
der vom Benutzer gegebenen Antwort auf dem Bildschirm erscheinen z 
lassen, benutzen wir das #-Symbol, gefolgt von der Frage-Antwort-Nummeı 
wie in Zeile 53080. Die dritte Antwort des Benutzers wird entsprechend de 
DATA-Anweisung in Zeile 53080 ausgedruckt. Um einen der zufälligen Satz- 
teile auszusuchen, benutzen wir das S-Symbol, gefolgt von der Nummer 
einer diese RANDOM-Gruppen. So bewirkt Zeile 53000 die Auswahl eines 
der Satzteile aus der mitGRUPPEI gekennzeichneten Gruppe ın Zeile 51000. 
Alle anderen Texte in der Geschichte werden so ausgedruckt, wie sie einge- 
geben wurden (zum Beispiel die Wörter in den Zeilen 53020 und 53070). Die 
Geschichte wird beendet durch die Eingabe von “END”, wie ın Zeile 53100 
zu sehen ist. 

Sie werden feststellen, daß das geschickte Zusammenfügen der Satzteile und 
Antworten der Mitspieler sowohl Praxis als auch Erfahrung erfordert. Je 
mehr Sie spielen, desto besser werden die Geschichten werden. Ihre Freunde, 
gleich welchen Alters, werden Ihre Geschichten genießen. 
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Blockout 


BLOCKOUT ist ein Wortratespiel und hat seinen Ursprung in einem ameri- 
kanischen Kinderspiel namens Hangman. Der Spieler hat eine feste Anzahl 
von Versuchen, um ein unbekanntes Wort zu erraten. Wenn er das Wort nicht 
errät, wird er am Galgen aufgehängt. BLOCKOUT basiert auf dem gleichen 
Prinzip, doch haben wir die Grausamkeit, die bei Hangman im Hintergrund 
besteht, weggelassen. Auch kann die festgelegte Anzahl von Versuchen zum 
Erraten des Wortes verändert werden. BLOCKOUT präsentiert das beliebte 
Kinderspiel in neuer Form, indem es sich die Grafikfähigkeiten des APPLE 
zunutze macht. 


10 REM «..„BLOCKOUT - EINGABE KLANG BILD 
11: 


997 : 

998 REM 3% INITIALISIERUNG #% 

999 : 

1000 DIM WD$ (50) 

1010 ML = 16: REM MAXIMALE LAENGE DES UNBEKANNTEN WORTES 

1020 HG = 8: REM HORIZONTALE FOSITION FUER RATEVERSUCHE 

1050 HC = HG + ML + 1: REM HORIZONTALE FSITION FUER ANHALTSPUNKTE 
1040 VG = 21: REM VERTIKALE FOSITION FUER RATEVERSUCHE 

1050 VC = VG: REM VERTIKALE FOSITION FUER ANHALTSPUNKTE 

1100 NW = O: REM % ZAEHLE DIE WOERTER AUND SPEICHERE SIE IN WDS(J) & 


1110 Z = 51000: GDSUR 19000: REM LESE DATEN AUS ZEILE 51000 
1120 READ Z$ 

1130 IF 2$ = "END" THEN 1200: REM KEINE WEITEREN WORTE 

1140 IF LEN (2%) > ML THEN 1120: REM LOESCHE ZU LANGE WOERTER 
1150 NW = NW + 1: REM NAECHSTES WORT 

1160 WD${NW) = 7% 

1170 GO0TO 1120 


1200 NG = 10: REM VORBESTIMMTE ANZAHL DER FALSCHEN VERSUCHE 
1210 GU = 15: REM OBERE SCHRANKE FUER RATEVERSUCHE 

1220 GL = 5: REM UNTERE SCHRANKE 

1300 DIM BK%(15,1): REM H/V POSITIONEN DER BLOECKE 

1510 BH = 2: REM HORIZONTALE LAENGE 

1320 BV = 3: REM VERTIKALE HOEHE 

1397 : 

1398 REM * TITELBILD & 


1399 : 

1400 GR : HOME : COLOR= 1: GOSUR 15500: REM HINTERGRUND IN ROT 

1410 COLOR= 0: FOR J = i TO 80: REM ZUFALLSBLOECKE IN SCHWARZ 

1420 XH = INT (37 & RND (1)) + 1:XV = INT (I6 *& RND (1)) + 1: REM ZUFAEL 
LIGE FOS 

1450 FOR Z = O0 TO 2: HLIN XH,XH + 1 AT XV + Z: NEXT 

1440 NEXT 

1450 XC(1) = 15:XV = 12:X$ = "BLOCK": GOSUR 15300 

1460 XV = XV + XB + 2:%X$ = "OUT": GOSUR 15300 

1470 VTAR 25: HTAB 6: FRINT "MIT RETURN GEHT ES WEITER.."; 

1480 GOSUR 11500: REM WARTE AUF TASTENDRUCK 

1490 IF 7% = - 1 THEN END : REM ESC 

1900 GOSUB 9000: REM INFORMATIONEN 

1997 : 

1998 REM ** INITIALISIERUNS FUER EIN NEUES SFIEL *%+ 

1999 : 

2000 IF NW = O THEN #800: REM KEINE WEITEREN WORTE 

2010 2 = INT (NW & RND (1)) +1 
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2020 SW$ = WD$(Z): REM NIMM EINES DER BISHER NICHT BENUTZTEN WOERTER 
2030 WD$(Z) = WDS(NW)I: REM ERSETZE DAS GEWAEHLTE WORT DURCH DAS NAECHSTE UN 
BENUTZTE WORT 


2040 NW = NW - 1: REM UND VERRINGERE DIE LISTE DER UNBENUTZTEN WOERTER UM 1 
2100 L$ = ""; REM INITIALISIERE L$,U$,C$, UND BL$ 

2110 Us = "" 

2120 C$ = "" 


2130 FOR J = 1 TO 26 


2140 L$ = L$ + CHRS (64 + I): REM NAECHSTER BUCHSTABE DES ALFHABETS 
2150 U$ = U$ + " ": REM EIN WEITERES LEERZEICHEN 

2160 C$ = C$ + "-"; REM EIN WEITERES - 

2170 NEXT 


2180 C$ = LEFT$ (Cs, LEN (SW$)): REM  KUERZE DIE HINWEISE AUF DIE LAENGE DES 
UNBEKANNTEN WORTES 

2190 BL$ = US + U$: REM 52 LEERZEICHEN 

2300 GOSUR 9500: REM SETZE DIE BLOECKE 

2997 : 

2998 REM  x#%# NAECHSTER RATEVERSUCH #% 

2999 : 

3000 VTAR VG: HTAB HG 

3010 YW = 1: GOSUR 10000 

3020 IF ZU = - HEN 6200: REM ESC 

3030 IF 2 < Re ss 5 "7" THEN 4700: REM KEIN BUCHSTABE DES ALPHABETS 

3100 REM UEBERFRUEFE OR DER BUCHSTABE SCHON GERATEN WURDE 

3110 2 = ASC (Z8) - ASC ("A") + 1: REM POSITION IN U$ 

3120 IF MIDs (Us,Z.1) < >" " THEN 4600: REM BEREITS BENUTZT 


3130 REM ERNEUERE Ls UND U$ UND DRUCKE AUS 
3140 REM SPEZIELLER FALL DER TEXT FUNKTIONEN BEI ERSTEM ODER LETZTEN BUCHST 


ABEN 3 
3150 IF Z= 1 THENL$ = " “ + RIGHTS (L$,25):U8 = Z6 + Rreiite Ues22) 
3160 IF Z = 26 THEN L$ = LEFT$ (L$,25) + “ ":U$ = LEFT$ (08,259) +2 


3170 IF Z > 1 AND Z < 26 THEN L$ = LEFT$ (L$,Z2 - 1) + " " + RIGHTS (18,26 — 


Z:Us = LEFTS (U$,Z - 1) + Z$ + RIGHTS (Us,26 - Z) 

3180 VTAB 23: HTAB HG + 2: PRINT U$ 

3190 HTAB HG: FRINT L$; 

3397 : 

3398 REM UEBERFRUEFE OR DER BUCHSTABE IM WORT VORHANDEN IST 

3399 ; 

3400 REM ERSETZE ALLE VORKOMMENDEN BUCHSTABEN IN C$ (HINWEISE) DES RATEVERS 
UCHS, WENN ES WELCHE GIBT . 

3410 REM ENTSPRECHEND DEN BEGRENZUNGEN DER TEXTFUNKTIONEN WIRD C$ BUCHSTABE 
FUER BUCHSTABE WIEDER AUFGEBAUT 

3420 Zis = "" 

3430 FOR J = 1 TO LEN (SWs) 

3440 72% = MIDs (SW$,J,1): REM NAECHSTER UNBEKANNTER BUCHSTABE Sn 

3450 IF 2% = 228 THEN Zis = Z1$ + 2$: REM EIN UNBEKANNTER BUCHSTABE 


RATEN 
3460 IF Z$ < > 22% THEN Zi$ = Zi$ + MID$ (C$,J,1): REM FALSCHER VERSUCH, 


BENUTZE INFORMATIONEN FUER HINWEISE 
3470 NEXT FALSCH GER 
3480 IF Z1i%$ = C$ THEN 4000: REM ANHALTSPUNKTE AENDERN SICH NICHT, 


ee Zi$: REM RICHTIG GERATEN;ERNEUERE HINWEISE UND DRUCKE AUS (EINGANG 
FUER RICHTIG GERATENES WORT) 

3500 VTAB VC: HTAB HC: PRINT C$; 

3510 G0TD 5000 

3997 ; 

3998 REM +2 FALSCH GERATEN ## 

3999 : 

4000 J = NB 
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BeTTE 0 we 





4010 
4020 
4030 
3040 
A050 
A080 
4070 
4100 
4110 
4120 
4597 
4598 
4597 
4800 
4510 
4700 
4891 
4892 
4895 


FOR K = 1 TO 8: REM LETZTER BLOCK BLINKT 


Tr TE RE HERR RER 


J=NB 

GOSUB 8700 

YP = 2: GOSUB 11400: REM PAUSE 

J=NB 

GLSUB 8400: REM LOESCHE LETZTEN BLOCK 


\ 
NEXT : 
NB = NB - 1: REM EIN BLOCK WENIGER 
IF NB > OÖ THEN 5000: REM VEBRIGGEBLIEBENE BLÜCKS 
GOTO 5200 
REM * FEHLER # 


7% = "DIESER BUCHSTABE WURDE SCHON VERSUCHT": REM BEREITS GERATEN 
GOTO 4900 
Z$ = "NUR A BIS Z VERWENDEN": REM KEIN ALFHABETISCHES ZEICHEN 


REM * DRUCKE FEHLERMELDUNG UND FASUE # 
REM EINGANG: Z$ AUSZUDRUCKENDER HINWEIS 


4899 : 


4900 
4910 
4920 
4970 
4940 


4997 : 


4978 
4999 
5000 
5010 
5020 
5930 
Saa0 
SOSo 
5080 
5070 
S100 
5110 
5120 
5150 
5140 
5150 
5997 
5998 
5979 
HS 
&C10 
6020 
HA30O 
5040 
8109 
si10 
6120 
6197 
5198 
6199 
8200 
6210 
6220 
6797 
6798 
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VTAR 22: HTAB 20 - LEN (2%) / 2: REM MITTELFUNKT 
INVERSE : FRINT Z$:: NORMAL 
YP = 50: GOSUR 11400: REM FAUSE 

HTAB 1: FRINT LEFT$ (BL$,40): REM LDESCHE FEHLERZEILE 
GOTO 3000: REM NAECHSTER VERSUCH 


REM 442 RICHTIGER VERSUCH 4% 
IF C$ = Su$ THEN 5100: REM 44 RICHTIGER VERSUCH #%# 
REM RICHTIGER BUCHSTABE ABER WORT NOCH NICHT GERATEIS 


Wi = G:W2 = 1:W3 = Q:W4 = 10:45 = - 1:W6 = S0:W7 = 2: GOSUR 13400 
FOR K = 1 T0 15 
J= INT iNB 2 RND (1)) * 1: REM NEHME EINEN ZUFAELLIGEN BLOCK 
GOSUB 8300: SEM UND WECHSLE DIE FARBE 
NEXT 


GOTO TO00: REM NAECHSTER VERSUCH 
WD = 100:7% = SWs: GOSUB 13300: REM * UNBEKANNTES WORT GEFUNDEN # 


FORK = 1704 

FOR J = 1 TO NB: GOSUR 8400: NEXT 
FOR J = 1 TO NB: GOSUB 8300: NEXT 
NEXT 


GOTO 5000: REM NOCH EINMAL? 

REM ++ NOCH EINMAL? ++ 

POKE 54,22: HOME ; REM LDESCHE DIE UNTEREN 2 ZEILEN 
VTAB 24: HTAB I 

PRINT "NOCH EINMAL SFIELEN (J OR NI? "; 
YF$ = " ": GOSUR 11200: REM J/N 

CN 7% + 2 GOTO 8100, 6000, 2000,8100: REM ESC,UNGUELTIG, J, N 
FRINT : PRINT 

FRINT "VIELEN DANK FUER’S MITSPIELEN.": 

END 

REM 4 HOERE AUF # 

VTAR 22: HTAB HC - 18 

INVERSE : FRINT "DAS WORD WAR : ";SWt: NORMAL 

SOTL 8000 


REM * KEINE WEITEREN WORTE & 


8799 ; 

6900 HOME 

8810 PRINT 

6320 FRINT "WIR HABEN ALLE UNBEKANNTEN WOERTER BENUTZT" 
$3320 GO0TO s100 


7997 : 

7993 REM +* BLOCK PROZEDUREN *%# 

7999 : 

SA00 POKE 34,20: HOME : REM &* SETZE BLOCKS AN STELLE #* (LOESCHE TEXTZEILE 
N 

8010 COLOR= 0: FOR Z = BT TO 39: HLIN 0,39 AT Z: NEXT : REM LOESCHE BLOCK B 
EREICHE 

8020 FOR J TO NB 


=1 

8050 GOSUB 8100: REM  LOKALISIERE UND DRUCKE NAECHSTEN BLCOK AUS 

8040 NEXT 

S0SG RETURN 

EIOD H = INT ({40 - DH) * AND (1)}r REM  %* LOKALISIERE UND DRUCKE BLOCK UNT 
ERHALB DES TITELS AUS & 

8110 REM J = BLOCK # 

8120 REM DER BLOCK DARF NICHT ZU NAHE AN DEN BLOECKEN 1,...,J-1 SEIN 

8130 V = INT (129 - BV - BEN x RAND (1)) + BT 

8140 IF J = 1 THEN 8210: REM ERSTER BLOCK LOKALISIERT 

8150 FRZ=1T0J-1 

8180 IF ABS (BKYIZ,0) - H) > BH OR ABS (BKX(Z,1) - VW) > BV THEN 8200: REM 
NICHT ZU NAHE 


8170 H = INT ((40 - BH) #& RND (1)): REM MACHE NEUE LOKALISIERUNG 
8180 V = INT ((39 - BV - ET # RND (1)) + BT 

8190 Z = 0: REM UND UERERPRUEFE WIEDER OR ZU NAHE 

8200 NEXT 

8210 BK%1J,0) H: REM H-FOS VON BLOCK J 


nu 


BK%(J.1) vv: REM V-FOS 

REM DRUCKE EINEN ELCOK AUS 

OCE = INT (15% RND (1)) + 1: REM * DRUCKE EINEN BLOCK * 

REM J= BLOCK # 

COLOR= C: REM FESTER BLOCK (EINSANG FUER LOESCHEN EINES BLOCKS) 

H = BK4(J,0): REM H-POS 

8340 V = EK%(J, 1): REM V-POS 

8350 IF SCRN{ H.V) = C THEN 8300: REM NEHME ANDERE FARBE WENN GLEICHE WIE 
BEVOR 

8350 FOR Z = i TO EH 

8370 VLINV,V+ BV-1ATH+ 2-1 

8380 NEXT 

8390 RETURN 

8400 C = 0: REM * LOESCHE EINEN BLOCK & 

8410 REM J = BLOCK # 

8420 GOTO 8320: REM LESE CODE 

8500 ) = INT (NB & RND (19) + 1: REM x BEWEGE EINEN BLOCK # 

8510 REM LOESCHE EINEN ZUFALLIGEN BLOCK. UEBERSCHREIBE BLOCK MIT DEM LETZTE 
N BLOCK 

8520 REM DANN LOKALIOSIERE UND DRUCKE EINEN NEUEN BLOCK AUS 

85I0 GOSLR 8400; REM LOESCHE DEN GEWAEHLTEN BLOCK 

8540 BK%(J,0) = BKZ{NB.O): REM VERERSCHREIBE BLOCK J MIT DEM LETZTEN BLOCK 

8559 BKY(J,1) = BKZCNB, 13 

S560 J = NB 

8570 GOTO 8100: REM LOKALISIERE UND DRUCKE NEUEN BLOCK 

8997 : 

39738 REM ++ INFORMATIONEN #3 

8999 : 

F000 TEXT : HOME 

F01G PRINT "BLOCKOUT IST EIN SPIEL ZUM RATEN VON WOERTERN." 

9020 PRINT 
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7030 PRINT 
9040 PRINT "DER COMPUTER WAEHLT EIN UNBEKANNTES " 
9050 FRINT "WORT UND DRUCKT EINEN PUNKT FUER JEDEN“ 


9060 PRINT "BUCHSTABEN AUS. (EIN &-BUCHSTABEN WORT ERHAELT DESHALB 5 PUNKTE. 
ye 


9070 FRINT 


2080 FRINT "VERSUCHE DIE BUCHSTABEN ZU ERRATEN." 
9990  FRINT 


9100 PRINT "JEDER RICHTIGE BUCHSTABE WIRD IN DEM" 
9110 PRINT "UNBEKANNTEN WORT GEZEIGT. BEI JEDEM " 


9120 PRINT "FALSCHEN VERSUCH VERSCHWINDET EINER DER BLOCKS VOM BILDSCHIRM." 
91350 PRINT 


9140 PRINT "WIR BEGINNEN MIT ";NG;" BLOCKS. VERSUCHE DAS UNBEKAN 
NTE WORT ZU RATEN," 


9150 PRINT "BEVOR ALLE BLOCKS VERSCHWUNDEN SIND. 
9180 FRINT 


9170 PRINT "DRUECKE ";: INVERSE : PRINT "ESC";: NORMAL : PRINI " FUER SPIELENDE." 
9180 PRINI 

9190 FRINT "MIT REIURN GEHI ES WEIIER..."; 

9200 GOSUE 11500; REM WARTE AUF TASTENDRUCH 





9210 IF 2% = - 1 IHEN #100: REM ESC 
9300 GR : HOME : REM  TITE 
9310 X$ = "BLOCK":XC(1) = INI (15 # RND (1)) + 1:XV = 0: GOSUB 15300: REM TITLE 
“ 9320 X$ = "DUT":XV = XV + XB + 1: GOSUR 15300 
W 9330 BI = X) + XR + 1: REM OBERSTER BLOCK BEREICH 
h 9340 REIURN 
9497 : 
9498 REM *# SETZE BLOCKS #t 
.) 9499 : 
9500 NE = NG: REM ANZAHI. DER BLOECKE 
9510 GOSUB 8000: REM SET UP BLOCKS 
9520 VIAR VG: HIAB HG - 7: FRINT "RAIE :"; 
9530 VTAR VC: HTAB HC: PRINT C# 
9540 FRINT 
9550 PRINT "BENUTZT: "U$ 
9560 PRINT "REST: "L$; 
570 RETURN 
50997 :; 
50998 REM *# WOERTER, WERDEN MIT "END" BEENDET 
50999 : 
51000 DATA "STRATEGIE", "OUADER" „"AERGERN ","ZITIERPAPPEL" 


51010 DATA "TABLETTE", "FLECHTE”, "ZAEHNE", "ERSTAUNEN" 
51020 DATA "RATESFIEL", "EINLAGE", "VERAENDERN" „ "SCHMEICHLER" 

h 51030 DATA "UNENDL ICH", "PIANISSIMO" , "FUSSBALL TOR", "GRAZ." 
51040 DATA "SAUERSTOFF " , "VERWEL.KEN" , "RINSENWEISHEIT", "GEHIRN" 
51050 DATA "TAFFERKEIT", "BOHRER", "PFERD" 
51090 DATA "END" 
80000 : 


&0010 REM %* COPYRIGHT 1981 RY HOWARD FRANKLIN, PALO ALIO, CA # 
680020 : 





Verbinden Sie dieses Programm mit EINGABE EINHEIT, KLANG EINHEIT 
(löschen Sie die Zeilen 18000 bis 19999) und BILD EINHEIT. Speichern Sie 
es als BLOCKOUT und tippen Sie RUN. 

BLOCKOUT nutzt die Möglichkeiten der LO-RES-Grafik. Die Wörter wer- 
den aus einer Auflistung entnommen, die in den DATA-Anweisungen von 
Zeile 51000 bis 51090 niedergeschrieben ist. Es können Wörter geändert 
und neue Ausdrücke hinzugefügt werden. Die Anzahl der zur Auswahl stehen- 
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den Wörter beträgt maximal 50 (siehe Zeile 1000). In Zeile 51090 müssen 
wir ein Zeichen (flag) setzen. Dieses Zeichen teilt dem Rechner mit, daß 
keine weiteren Wörter folgen. In der hier vorgestellten Form sind 10 Fehlver- 
suche erlaubt. 


Frage 5: Wie ist das Programm zu verändern, damit maximal sechs Fehl- 
versuche erlaubt sind? 


Beachten Sie, daß BLOCKOUT die ESC-Funktion in der gleichen Art ver- 
wendet, wie dies im letzten Kapitel vereinbart wurde. Mit ESC und an- 
schließend RETURN kann der Benutzer das Spiel beenden und das unbe- 
kannte Wort sehen. Die farbigen Quadrate werden zufällig auf dem Bild- 
schirm verteilt. Auch die Farben werden per Zufallsfunktion gewählt. 


Frage 6: Wie müssen Sie das Programm ändern, damit alle Quadrate die 
Farbe Orange erhalten. 


Schauen wir uns den Programmteil, beginnend mit Zeile 8100 an. Diese 
Prozedur überprüft sorgfältig den Abstand zwischen den einzelnen Farbqua- 
draten, die nicht zu nahe beisammen plaziert werden sollten, damit eine an- 
sprechende grafische Bildgestaltung erreicht wird. e 
Eine falsche Antwort bewirkt, daß eines der Farbquadrate einige Male blinkt 
und anschließend verschwindet. 


Frage 7: Welcher Programmteil ruft das Verschwinden der Farbquadrate 
hervor? 


In vielen grafischen Spielen wird das Vier-Zeilen-Textfenster am unteren 
Bildschirmrand nicht optimal ausgenutzt. Oft fallen wichtige Fragen aus dem 
sichtbaren Bereich heraus. Wichtige Informationen für den Spieler, der 
vielleicht vergessen hat, was zu tun ist, gehen verloren. 

Bei BLOCKOUT bleiben alle Anhaltspunkte, wie bereits benutzte Buchsta 

ben und noch verbleibende Buchstaben, sichtbar. Nur die Frage wir erneuert 

Dies ist eine Möglichkeit, das Textfenster effektiv zu nutzen. Allgemein 
sollte das grafische Bild so gestaltet werden, daß alle wichtigen Bestandteile 
während des ganzen Spiels auf dem Bildschirm sichtbar bleiben. ee 

Haben Sie bemerkt, daß beim Spielen von BLOCKOUT jede richtige Ant- 
wort ein akustisches Signal hervorruft? Bei falschen Antworten ändert sich 
zwar der Bildschirm, aber es ertönt kein akustisches Signal. Das Verstärken 
richtiger Antworten und, wenn möglich, das Ignorieren falscher Antworten 
ist eine empfehlenswerte Technik für das Schreiben von Lehr- und Lernpro- 
grammen. 

Schauen Sie sich sorgfältig den Programmteil TITELBILD ab Zeile 1400 an. 
Man könnte meinen, die grafischen Aktivitäten auf dem Bildschirm erforder- 
ten viele Programmbefehle. Da unser Programm BILD EINHEIT jedoch so 
geschickt konstruiert ist, benötigen wir nur wenig Programmieraufwand zur 
Herstellung eines attraktiven Bildes. Schauen Sie sich auch die anderen Spiel- 
programme dieses Buches an. Beachten Sie, wie wenig ‚Programmierzeilen 
für die Herstellung eines schönen Titelbildes erforderlich sind! 





83 





— 


Match 


MATCH ist ein Ein-Personen-Spiel, das auch mehrere Personen abwechselnd 
spielen können. Das Ziel des Spiels ist es, zusammengehörige Wortpaare zu 
bilden. Der Spieler kann jederzeit das Spiel durch Drücken von ESC RETURN 
beenden. Als wir MATCH entworfen haben, entschieden wir uns dafür, nach 
Beendigung des Spiels die richtigen Antworten nicht anzugeben. Dies ist 
auch nicht notwendig, denn durch Ausscheiden der falschen Wörter kann 
der Spieler immer die richtige Lösung finden. Eine der positiven Folgen der 
ESC-Vereinbarung in EINGABE EINHEIT ist die ständige Kontrolle über die 
Funktion der ESC-Taste. 

Hier haben wir die Funktion so festgelegt, daß keine richtigen Ergebnisse ge- 
zeigt werden: 


10 REM ...MATCH-EINGABE KLANG BILD 


11% 

297 3 

998 REM ** INITIALISIERUNG #% 
2992: 

1000 DIM L$ 150) ,R% (50) ,L4(50) ,R%(S0) 
1010 BL$ = "" 


1020 FOR J = 1 TO 40 

1030 BL$ = BL + " " 

1040 NEXT 

1100 Z = 51000: GOSUR 19000: REM SETZE READ DATA ZEIGER 

1110 READ HL,HR,C$ 

1120 Z = HR - HL - LEN (C$): IF Z < 2 THEN HOME : PRINT "DAS VERBINDUNGSWORT 

IST ZU LANG": END 

1130 IF Z2Z/2<& » INT (Z / 2) THEN HR = HR - 1: REM GLEICHE ZAHL VON LEER 

STELLEN AUF BEIDEN SEITEN 


1140 HC = INT ((HL + HR) / 2) 

1150 VO = 72 

1180 VS = 2 

1200 NF = 0: REM INITIALISIERE WORTFAARE 


1210 READ 7%, 271% 

1220 IF Z% = "END" OR Zi$ = "END" THEN 1300: REM KEINE WEITEREN WORTFAARE 
1270 NP = NP + 1: REM WEITERE WORTFAARE 

1240 L$(NP) = 7% 

250 Rs(NF) = Zis 

1260 GOTQ 1210 

1500 NR = 8: REM 8 REIHEN 








1397: 

1398 REM # TITELBILD # 

15993 

1300 GR : NOME ; COLOR= 15; Gasıue 15500: REM GELBER HINTERGRUND 

1310 %8 = "MATCH":XV = 10:XC(1) = 2: GOSUB 15300 

1320 X$ = "W" + CHRS (1) + CHRS (2) + "CH":XV = 40 - XV - XB:XCti) = 7: GOSUR 


15700: REM SFIEGELBILD 
1430 VTAB 23: HTAB 8: FRINT "MIT RETURN GEHT ES WEITER.."; 
1440 GOSUB 11500: REM WARTE AUF TASTENDRUCK 
1450 IF 2%4= - 1 THEN END : REM ESC 
1900 GOSUSB 9000: REM INFORMATIONEN 
1997 2 
1978 REM *# INITIALISIERUNG FUER NAECHSTES SPIEL #% 
1999 : 
2000 FOR J = 1 TO NP 
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2010 
2020 
2030 
2040 
2050 
20650 
2070 
2080 
2090 
2200 
2210 
2900 
2910 
2920 
2930 
2940 
2950 
2980 


2937. 3 


2998 


Bagan: 


3000 
3010 
3020 
3030 
3100 
3110 
3120 
3130 
3140 
3150 
3200 
3210 

220 
3230 
3240 
3250 
3300 
3310 
3320 
3330 
3340 
3400 
3410 
3491 
3492 
3493 
3494 
3499 
3500 
3510 
3520 
IFIO 
3540 
3550 
3560 
3800 
3810 
3820 
3850 
3891 


LAU) = - J: REM FLAG FUER ANFANGSAUSDRUCK 
NEXT 
N = NPz REM VERTAUSCHE ALLE FAARE 

G0SUB 2900 
N = NR: REM BENUTZE ERSTE NR 

FOR J= 1 TON 

RA(U) = LAU): REM COPY TO R%(1,...,NR) 

NEXT 


GOSUR 2900: REM VERTAUSCHE ALLE FAARE DER LINKEN SEITE 

GOSUB 9500: REM _INITIALISIERE BILDSCHIRMAUSDRUCK 

GOTO 3000 

FOR Z = N TO 2 STEF - 1: REM VERTAUSCHE L%(1,...,N 

274=2% RND (1) +1 

Zi = 142 

LAZI = LA(Z%X) 

LA(ZW = Z1 

NEXT ’ 
RETURN ® 
REM  *%* WAEHLE NAECHSTES PAAR #% 

FOR Z = 1 TON 

VTAR VO + VS *& (NR - N + Z): REM MACHE MENUE 

HTAB HC: PRINT 2; 

NEXT 

OP$ = "WAEHLE EIN WORT DER LINKEN SEITE: E 


GOSUB 3500 
Pl=J 

INVERSE : REM  DRUCKE LINKEN TEXT INVERS AUS 
GOSUR 8600 

NORMAL 
OP$ = "NUN WAEHLE EIN WORT DER RECHTEN SEITE: * 
GOSUR 3500 
Bd 

INVERSE : REM DRUCKE RECHTEN TEXT INVERS AUS 
GOSUB 8800 

NORMAL 

FOR Z = 1 TON: REM LOESCHE MENUE 

VTAB vo + VS & (NR - N + ZI: REM V-FOS 

HTAB HC: REM H-FOS 

PRINT " "; = 
NEXT 

IF LA(PL < > RACPZ) THEN 4000: REM FALSCHE KOMBINATION 
GOTO 5000: REM RICHTIG 

REM  * ALLGEMEINER CODE FUER WAHL EINES TEXTES # 
REM EINGANG: OF$ SOFORT 

REM AUSGANG: J WAHL 


HTARB 1: FRINT OF®; 

= N:YW = 1: GOSUB 11000 

- 1 THEN 8100 
Q THEN 3900: REM UNGUELTIG 





HTAB 1: PRINT LEFTS (BL$,39; 

RETURN 
0$ = "WAEHLE EINE ZAHL ZWISCHEN 1 UND " + STR#$ (N) 
P= 80 

GOSUB 3900 

GOTO 3500: REM VERSUCHE NOCH EINMAL 
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3892 REM * DRUCKE HINWEIS ZEILE &* 
38953 REM EINGANG: Q$ AUSZUDRUCKENDER TEXT 


3894 REM F PAUSE 
3899 : 
3900 VTAB 24: HTAR 20 - INT ( LEN (0$) / 2) 


35910 INVERSE : PRINT Q$;: NORMAL 
3920 YF = P: GOSUB 11400: REM FAUSE 
3930 HTAB 1: FRINT LEFT$ (BL$,39; 
3940 RETURN 

3997 : 

5998 REM *#+ FALSCHE KOMBINATION ** 
3999 : 

4000 YP = 10 


4010 IF Pi = P2 THEN 4400: REM LINKS,RECHTS VERSCHIEBEN 
4020 IF F2 < Pi THEN 4200: REM BEWEGE ERST RECHTE SEITE NACH UNTEN 


4030 UD = 1: REM BEWEGE LINKE SEITE EINS NACH UNTEN 
4040 GOSUB 8000 


4050 GOTO 4010 

4200 UD = 1: REM BEWEGE RECHTE SEITE EINS NACH UNTEN 

4210 GOSUR 8200 

4220 GOTO 4010 

4400 IF Pl = N THEN 45800: REM LINKE,RECHTE SEITE AM BODEN 
4410 UD = 1: REM BEWEGE BEIDE SEITEN 

4420 GOSUB 8400 

3450 GOTO 4400 


4600 WI = 0:W2 = S:WZ = O:W4 = 10:W5 = 1:47 = 1: GOSUR 13400 





4610 O$ = "t% FALSCHE KOMBINATION #*" 
4620 F = &0 

4530 GOSUB 3900 

4520 J = Fi 


4650 GOSUB 8500: REM DRUCKE NORMAL 
4660 GOSUB 8800 

4670 GOTO 3000 

4997 ı 

4999 REM 44 RICHTIGE KOMBINATION x** 
4999 : 

Ss000 YF = 10 


5010 IF Pi = F2 THEN 5400: REM LINKE,RECHTE SEITE VERSCHIEBEN 
5020 IF F2 > Pi THEN 5200: REM BEWEGE RECHTE SEITE ZUERST 
S0OSC UD = - 1: REM BEWEGE LINKE SEITE 

5040 GOSUB 8000 


sco50 GOTO 5010 

5200 UD = - 1: REM BEWEGE RECHTE SEITE 

5210 GOSUB 8200 

5220 GDTO 5010 

5400 IF Pi = 1 THEN S600:LINKE,RECHTESEITEOBEN 
5410 UD = - i: REM MOVE BOTH SIDES 

5420 GOSUB 8400 

5430 GOTO 5400 


S600 WI = O:W2 = S:WF = 0:W4 = 10:W5 = - 1:W7 = 1: GOSUB 13400 
5610 VTABR VO + VS # (NR - N + 1): REM LEFT,RIGHT ON TOP LINE 
5620 HTAB HE - INT (LEN (C#) / 2) 


5630 INVERSE : FRINT C$;: NORMAL 

5630 7% = L$(LACH)) 

5650 Z1$ = R$(R%(1)) 

5700 FOR J = HL + 1 TO HC - INT (LEN (C$) / 2) - 1: REM BEWEGE WOERTER ZU 
SAMMEN 

5710 HTAB J - LEN (Z$) - 1: PRINT " "z;: INVERSE : PRINT Z$;: NORMAL 

5720 HTAB HR + HL - J: INVERSE : PRINT Zis;: NORMAL : PRINT " "; 

5730 NEXT 
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5300 
5310 
5820 
SII0 
5840 
5850 
5860 
5970 
5880 
Ss390 
5700 
53997 
3978 


% 


0$ = "DAS IST RICHTIG!!!" 

P= 60 

GOSUR 3900 

NI=EIN = i: REM EIN FAAR WENIGER 


IF N = 0 THEN S900: REM ALLE GEFUNDEN 

FOR J = 1 TO N: REM BEWEGE LISTE ABWAERTS 
LION = Lit) + 0) 
RAD) = R%lJ + 2) 

NEXT 


G0TO 3000 En 
VTAB 21: HTAR 7: PRINT "DU HAST ALLE WORTFAARE GEFUNDEN! ! 


REM *% NOCHMAL? *% 


3999 : 


8000 
6010 
8020 
8030 
&100 
8110 
6120 


7997 : 


7998 


HTAB 1: VTAR 24 

FRINT "NOCH EINMAL (J OR N)? "; 

G0SUB 11200: REM J/N 

ON 7% + 2 GOTO 5100,6000,2000,6100: REM ESC,UNGUELTIG,J,N 
FRINT : PRINT 


PRINT "VIELEN DANK FUER’S MITSPIELEN."; 
END f 
REM *%* BEWEGUNGS PROZEDUREN #% h. 


7999 : 


8000 
8010 
8020 
8030 
8100 
8110 
8120 
8130 
8140 
8150 
8160 
8170 
9180 
8190 
8200 
8210 
8220 
8230 
8300 
8310 
8320 
8II0 
8340 
350 
8I60 
8370 
8380 
8390 
8400 
8410 
8420 
8430 
8440 
8450 
8450 
8470 


Z = L%(Pi): REM BEWEGE LINKE SEITE AUF/AB 
REM UD = -1 AUF, +1 AB 

LA(P1) = L%(F1 + UD) 

LA(Pl + UD) = Z 

J= Pi: REM DRUCKE NEUES LINKES J 

GOSUB 8700: REM LEERZEICHEN 

GOSUR 8600: REM DANN DRUCKE 


J=Pi + UD:Pi = J: REM BEWEGE WAHL 
GOSUB 8700: REM LEERZEICHEN 
INVERSE 
GOSUB 8500: REM DRUCKE INVERS 
NORMAL 
GOSUB 11400: REM PAUSE 
RETURN 


Z = RA(F2): REM BEWEGE RECHTE SEITE AUF/AR 
REM UD = -1 AUF, +1 AB 

RA(PZ2) = R%(F2 + UD) 

RA(P2 + UDD = Z 

J= P2: REM DRUCKE NEUES RECHTES J 
GOSURB 8900: REM LEERZEICHEN 
GOSUB 8800: REM DANN DRUCKE 

J = P2 + UD:F2 = J: REM BEWEGE WAHL 


GOSUB 8900: REM LEERZEICHEN 

INVERSE | 
GOSUR 8900: REM DANN DRUCKE INVERS 

NORMAL | 
GOSUR 11400: REM PAUSE | 
RETURN 


Z = L4(Pl): REM BEWEGE BEIDE SEITEN 
REM UD = -1 AUF, +1 AB 

LA(P1) = L%A(Pi + UD) 

LA(Pi + UD) = Z 

Z = RX(FI) 

RA(PL) = RA(PI + UD) 

RA(PI + UD = Z 

az 





A 


8480 GOSUR 8700 

8490 GOSUR 8900 

8500 GOSUR 8500 

8510 GOSUB 8800 

8520 J = Pi + UD:P1 = J: REM BEWEGE REIHE 
85350 GOSUB 8700 

8540 GOSUB 8900 

8550  INVERSE 

8560 GOSUR 86500 

8570 GOSUB 8800 

8580 NORMAL 

8590 GDTO 11400: REM FAUSE 
8597 : 


8598 REM % DRUCKE PROZEDUREN %* 

8599 ; 

8600 7% = L$(LY(J)): REM DRUCKE LINKE SEITE IN REIHE J 
86810 HTAB HL - LEN (Z$): REM H-FOS 
8620 GOTO 8820 

8700 2$ = LEFT$ (BL$,HL - 1): REM 
8710 GOTO 8610 

8800 7$ = R$(R%(J)): REM DRUCKE RECHTE SEITE IN REIHE J 
8810 HTAB HR: REM H-FOS 

8820 VTAR VO + VS X (NR - N + DD: 
8830 PRINT Z$; 

8840 RETURN 

8900 7% = LEFT$ (BL$,40 - HR): REM 
8910 GOTO SB10 

8997 : 

8998 REM *+ INFORMATIONEN &#%# 
8999 : 

9000 TEXT : HOME 

9010 VTAR 4 


9020 HTAR 14: FRINT "xx% MATCH Fix" 


LEERZEICHEN LINKER TEXT IN REIHE J 


REM EINGANG FUER LINKEN TEXT 


LEERZEICHEN RECHTER TEXT IN REIHE J 


9030 FRINT 

9040 FRINT 

9050 FRINT "IN DIESEM SPIEL WOLLEN WIR WORTPAARE BILDEN. " 

9060 FRINT 

9070 PRINT "WELCHES WORT AUF DER LINKEN SEITE" 

9080 PRINT "FASST ZU EINEM WORT AUF DER RECHTEN SEITE?" 

9090 FRINT "VERBINDE DIE WOERTER DURCH ANGABE IHRER NUMMERN." 
9100  FRINT 


9110 PRINT "WENN DU ALLE WORTFAARE GEFUNDEN HAST, 
9120 VTAR 20 


9130 PRINT "DRUECKE ";: INVERSE : FRINT "ESC";: NORMAL : PRINT " FUER SPIELEN 
DE." 


9140 PRINT 
9150  FRINT "MIT RETURN GEHT ES WEITER.."; 
9160 GOSUB 11500: REM WARTE AUF TASTENDRUCK 


IST DAS SFIEL GEWONNEN." 


9170 IF 7% = - 1 THEN 5100: REM ESC 
9180 RETURN 

9497 : 

9498 REM * INITIALISIERE AUSDRUCK % 
97499 : 


9500 HOME 

9510 HTARB HC - 2: INVERSE : PRINT "VERRINDE": NORMAL 

9520 FOR K = 1 TO NR: REM DRUCKE FAARE ZEFAELLIG AUS 

9530 J = INT (NR & RND (VD) + 1: REM DRUCKE NEUES LINKES FARR 


9540 IF LA4()) > O THEN 9530: REM SCHON AUSGEDRUCKT, VERSUCHE NOCHMAL 
9550 LA(J) = - LAU): REM FLAG WENN GEDRUCKT 


9560 GOSUR 8400: REM DARUCKE LINKES PAAR 
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9570 J = INT (NR & RND (1)) + 1: REM DRUCKE NEUES RECHTES FAAR 
95980 IF R%4tJ) > Q THEN 9570: REM SCHON GEDRUCKT, VERSUCHE NOCHMAL 


9590 R%(J) = - R%tJ): REM FLAG WENN GEDRUCKT 
9600 GOSUR 8800: REM DDRUCKE RECHTES PAAR 
9610 NEXT 


9620 RETURN 

20100 DATA 5,7: REM UMGEDREHTES A 
20110 DATA "1 re 

20120 DATA "i ar 

20130 DATA "1111" 

20140 DATA "1 iS 

20150 DATA "1 3 u 

z0160 DATA " 11" 

20170 DATA " 1" 

20180 DATA "-1" 

20200 DATA 5,7: REM UMGEDREHTES T 


20210 DATA " 1" 
20220 DATA " 1" 
20250 DATA " 1" 
20240 DATA " 1" 
20250 DATA " 1" 
20260 DATA " 1" 
20270 DATA "11111" 
20280 DATA "-1" 
49997 : 

49998 REM x% VARIABLEN VEREINBARUNGEN #% 
49999 : 


S0000 REM L$(J) LINKER TEXT DES FAARES (RECHTS ANGEFASST) 
5C010 REM Rs(J) RECHTER TEXT DES FAARES (LINKS ANGEPASST) 
50020 REM L%(J) LINKER TEXT IN J-TER REIHE 

500390 REM R%(J) RECHTER TEXT IN J-TER REIHE 

5004090 REM NF ZAHL DER PAARE 

S0050 REM NR ZAHL DER REIHEN 

REM N ZEHL DER UEBRIGEN REINEN 

REM HL H-POS + 1 DES RECHTEN RANDES DER LINKEN SPALTE 
REM HR H-FOS DES LINKEN RANDES DER RECHTEN SPALTE 

REM HC H-FOS DER MITTE 

REM vo V-FOS VON "REIHE 0" 

REM VS ZAHL DER VERTIKELEN LEERSTELLEN ZWISCHEN DEN REIHEN 
REM EL LEERZEICHEN 

REM Pi ERSTE WAHL 

REM P2 ZWEITE WAHL 





509 : 
50991 : 
Sam2 RR 
50995 : 
50794 REM H-FOS + 1 DES RECHTEN RANDES DER LINKEN SPALTE 
50995 REM H-FÜS DES LINKEN RANDES DER RECHTEN SFALTE 

50996 REM VERBINDUNSSWORT (MUSS ZWISCHEN DIE SPALTEN PASSEN) 
50997 REM FARRE 1,...,NF 

50998 REM END,END 

50999 : 

S1000 DATA 14,27, "BEDEUTET" 


im 


m *4 WORTFAARE DATEN BEGINNEN IN ZEILE S1000 *# 


S1010 DATA "RESIGNATION". "AUFGABE" „"GRAVITATION", "SCHWERKRAFT" "STILL" „" 
RUHIG" 

51020 DATA "HEKTISCH" , "TURBULENT", "HEISSFORN" , "HITZKOPF", "PERFEKT" ."FEH 
LERFREI" 

S1030 DATA "TAKTLOS" „"UNHDEFLICH". "BRANCHE" „"BERUFSZWEIG", "MONARCH"," 
HERRSCHER" 

51030 DATA "TEENAGER", "IUGENDLICHER" "DISTANZ". "ABSTAND", "ARWEHREN" „"VER 
TEIDIGEN" 
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S1050 DATA _ "ANGREIFEN", "STUERMEN", "SCHWINGEN" „"VIERIEREN", "VERTIKAL", "SEN 
KRECHT" 

Si080 DATA "HORIZONTAL", "WAAGERECHT", "BELEGEN" , "BEWEISEN", "KALKULIEREN”, "RE 
CHNEN" 

51070 DATA "WAGNIS", "RISIKO". "VEGETARISCH", "FFLANZLICH" „"DREHUNG"  „"ROT 
ATION" 

51089 DATA "VERDAMPFEN". "VERDUNSTEN" , "KOSTBAR", "WERTVOLL", "NUETZLICH", "BRAU 
CHBAR" 

51070 DATA "UNSINN", "NONSENS", "REGEL" "NORM" „ "AUFSTEHEN" , "ERHEBEN 

S1100 DATA "AUFSTAND" „ "REVOLUTION", "OZEAN" "MEER" „"INSEL" ‚"EILAND" 

S111O DATA "VERWUNDET","VERLETZT"  ,„"FRUEFEN" ."ERPROBEN", "SPION" D 
AGENT" 

51120 DATA "HUENE" "RIESE" „"GESETZLICH", "LEG "THESE"  „"LEITSATZ" 

S1130 DATA "MOTIV" „"ABSICHT" „"COMPUTER" , "RECHNER" , "POET" „"DICHTE 
=. 

51999 DATA "END", "END 


[jeleleie] 


Su0ic REM 3 COFYRIGHT 1981 BY HOWARD FRANKLIN. FALO ALTU, CA %* 
50020 : 


Verbinden Sie das Programm mit EINGABE EINHEIT, KLANG EINHEIT 
(löschen Sie die Zeilen 18000 bis 18999) und BILD EINHEIT. Speichern Sie 
es als MATCH und starten Sie es. 

MATCH benutzt das ganze Bildschirmformat und die inverse Darstellung. 
Obwohl es auf der Darstellung von Texten basiert, ist der Bildschirmaus- 
druck sehr schön anzuschauen. MATCH wurde so entworfen, daß es dem 
Spieler möglichst alle nötigen Hilfen gibt. Die wichtigen Informationen blei- 
ben jederzeit sichtbar. Die Schrift bleibt immer innerhalb des Textfensters. 
Schließlich benutzt das Programm sehr raffinierte Techniken, um Texte zu 


verschieben. Dadurch ergibt sich eine lebendige und abwechslungsreiche 
Textgestaltung. 


MATCH ist ein nettes Spiel und ein gutes Beispiel für Lernprogramme, die 
auch Töne und Klänge zur Unterstützung verwenden. Es werden hilfreiche 
Fehlermeldungen gegeben. Die Reaktion auf die richtigen Antworten ist viel 
stärker und deutlicher als auf falsche. Die gefundenen Wortpaare bleiben weı- 
ter sichtbar und heben so die richtigen Antworten hervor. (Falsche Wort- 
paare rutschen zum unteren Bildschirmrand.) 

MATCH nutzt den Bildschirm in sehr effizienter Weise. Das zentrale Bild ist 
sowohl attraktiv anzusehen als auch platzsparend. Die Benutzung der inversen 
Textdarstellung hebt richtige Antworten deutlicher hervor. Das Bewegen der 
Textblöcke richtet die Aufmerksamkeit des Spielers auf den Monitor. Das 
Bewegen der zu verbindenden Wörter und das anschließende Zusammen- 
fassen an einer Stelle besitzt einen größeren pädagogischen Wert als das Ver- 
binden der richtigen Wortpaare durch Linien (z.B. in Lehrbüchern). 

Ein weiterer Vorzug von MATCH ist folgender: Die Liste der zur Verfügung 
stehenden Wörter wird kontinuierlich durchnumeriert. Dadurch kann die 
Zahl der noch verbleibenden Wörter wiedergegeben werden. Nach jedem 
neuen Start des Programms werden die Wortpaare zufällig aus den DATA- 
Anweisungen entnommen und in einer veränderten Reihenfolge präsentiert. 
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Durch Änderung des Inhalts der DATA-Anweisungen kann MATCH leicht 

erweitert werden. Der größte Vorteil dieses Programms liegt jedoch in den 

vielfältigen Möglichkeiten dieses Spiels. Es können nicht nur sinnverwandte 

Wörter benutzt werden, sondern beliebige Texte oder auch Zahlen. Beachten 

Sie, daß der verbindende Text (in diesem Fall “BEDEUTET“) in der DATA- 

Anweisung in Zeile 51000 steht. Wir können beliebige Kombinationen ein- 
setzen: Länder und ihre Hauptstädte, Gleichungen und ihre Lösungen, 

Vokabeln in Englisch und Deutsch usw. In jedem Fall muß ein entsprechen- 

der Verbindungstext eingesetzt werden. 


Wir zeigen zwei Beispiele, wie der Bildschirm nach Spielende aussehen kann: 


ITALIEN HAUPTSTADT ROM 
FRANKREICH HAUPTSTADT PARIS 
ENGLAND HAUPTSTADT LONDON 
SPANIEN HAUPTSTADT MADRID 
SCHWEIZ HAUPTSTADT BERN 
BELGIEN HAUPTSTADT BRUESSEL 
SCHWEDEN HAUPTSTADT STOCKHOLM 
FOHLEN IST EIN JUNGES PFERD 
LAMM IST EIN JUNGES SCHAF 
KITZ IST EIN JUNGES REH 
KUEKEN IST EIN JUNGES HUHN 
KALB IST EIN JUNGES RIND 
FERKEL IST EIN JUNGES SCHWEIN 


Um diese Wortpaare verwenden zu können, werden die DATA-Antweisun- 
gen in den Zeilen 51010 bis 51999 durch neue Anweisungen ersetzt, die die 
Wortpaare enthalten. 


Beispiel: 51010 DATA “ITALIEN“, “ROM“, “FRANKREICH“, “PARIS“ 


Es können maximal 50 Wortpaare aufgenommen werden. Von diesen wählt 
das Spiel acht Zufallspaare aus. Natürlich muß auch der zentrale Text in 
Zeile 51000 geändert werden, damit er die neuen Wörter in der aktuellen 
Liste sinnvoll verbindet. 


Zusammenfassung von Kapitel 6 


In diesem Kapitel stellten wir drei Textspiele vor. Wir erläuterten, wie ein- 
fache Veränderungen vorgenommen werden, um die Spiele dem speziellen 
Teilnehmerkreis anzupassen. Die Spiele benutzen viele der in diesem Buch 
bereits vorgestellten Unterprogramme. Aufbau und Benutzerfreundlichkeit 
wurden anhand dieser Programme demonstriert. Im nächsten Kapitel zeigen 
wir einige interessante Spiele, die die grafischen Möglichkeiten des APPLE 
ausnutzen. 
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Lösungen zu Kapitel 6 


Frage 1: 
Frage 2: 
Frage 3: 
Frage 4: 
Frage 5: 
Frage 6: 


Frage 7: 
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Die Länge der Antwort wird auf 3 Buchstaben begrenzt. 


Ändern der DATA-Anweisungen in den Zeilen 52000 bis 52050. 
Die Zeilen 3310 bis 3430. 


5 Auswahlmöglichkeiten in Zeile 51020. 


1200 NG =6 
8300 COLOR = 9 
8350: 


; N is 8390 das 
Die Zeilen 8400 bis 8420. Anschließend wird in den Zeilen 8300 bis 83 
Farbquadrat mit schwarzer Farbe gezeichnet. 





Kapitel 7 
Weitere Spiele 





In diesem Kapitel stellen wir drei weitere Computerspiele vor, die einige be- 
sondere Merkmale in sich vereinigen. KONZENTRATION ist ein auf Bildern 
basierendes Kartenspiel, das sich gut für die LO-RES-Grafik des APPLE eig- 
net und das verwandt ist mit dem bekannten Familienspiel ‘“Memory‘“. Mit 
KONZENTRATION können wichtige Programmveränderungen sehr einfach 
durchgeführt werden, z.B. das Programmieren verschiedener Schwierigkeits- 
grade. 

STERNE ist ein Spiel zum Zahlenraten. Das Programm nutzt die hohe Re- 
chengeschwindigkeit des Computers aus. Wir haben das Spiel in einer speziel- 
len Version entwickelt, um die Grafikfähigkeiten des APPLE besonders her- 
vorzuheben. 

Unsere Version des SIMON-Spiels benutzt Musik, LO-RES-Grafik und fort- 
laufende Textzeilen. 


Konzentration 


KONZENTRATION ist ein Ein-Personen-Spiel, das aber auch von mehreren 
Spielern abwechselnd gespielt werden kann. Das Spiel dauert so lange, bis 
alle Kartenpaare gefunden sind. Am Ende des Spiels werden alle Karten 
offen (mit dem Bild nach oben) auf dem Bildschirm dargestellt. 


10 REM «..„KONZENTRATION-EINGABE BILDER... 
11: 

Erf 

998 REM ı+ INITIALISIERUNG *%* 

999 : 


1000 DIM PR%(12,1).C0D% (24) .„H% (24) ,V%(24) ,CP% (6,1) 

1010 MP = 12: REM MAXIMALE ZAHL VON KARTENFAAREN 

1020 MC = 6: REM FARBFAARE 

1030 REM VERAENDERE DIE KARTENAUSDRUCK FROZEDUR IN 8I00,.... WENN CH ODER C 
V VERAENDERT!! 

1040 CH = 4: REM HORIZONTALE LAENGE - 1 EINER KARTE 


1050 CV = 6: REM VERTIKALE HOEHE - 1 
1100 FOR J = 1 TO 24: REM INITIALISIERE KARTENFOSITION 
1110 274 = (J- 1) 76 
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1120 HA (J) 


u Sr ker aa 






1130 VAL) 7% * 10 
1130 NEXT 
1200 DIM BL$(39) 
1210 BL$ = "" 
1220 FOR J = 1 TO 59 
1230 BL$ = BL$ + " " 
1240 NEXT 
1297 : 
1298 REM x TITELBILD & 
1299 : 
1300 GR : HOME : FOR J = 1 TO 24: GOSUR 8000: NEXT : REM DRUCKE KARTEN MIT 
BILD NACH UNTEN 
1310 XS = 1:XH = HAl1):XV = V%l1):X$ = "KON"SXC(1) = 14: GOSUB 15400 
1320 XH = HA(8):XV = V4(B):X$ = "ZEN": GOSUB 15400 
1330 XH = H%(156):XV = VAl16):X$ = "TRA": GOSUR 15400 
1340 XS = 2:XH = H%(20):XV = V%(20):%X% = "TIO": GOSUB 15400 
1350 XH = HAL2II:X% = "N": GOSUB 15400 
1360 VTAR 235: HTAB 7: FRINT "MIT RETURN GEHT ES WEITER. ."; 
1370 GOSUB 11500: REM WARTE AUF TASTENDRUCH 
1380 IF 2% = - 1 THEN END : REM ESC 
1497 : 
1498 REM 4 FARAMETER FUER DIESES SPIEL & 
1499 : 
1500 NT = 4: REM ZAHL DER KARTENMOTIVE IN DIESEM SPIEL 
1510 NC = 4: REM ZAHL DER FARBFAARE 
1520 NP = 6: REM ZAHL DER KARTENPAARE 
1530 LC$ = CHRS ( ASC ("AI - 1 +2 NP 
1500 GDSUB 9000: REM INFORMATIONEN 
1997 : 
1998 REM %*# INITIALIZATION FOR NEXT GAME *%* 
9937: 
I&&8 IF NT & NC < NP THEN TEXT : HOME : VTAB 11: HTAB 2: FRINT "NICHT GENUG 
KARTEN. AENDERE 1500-1520.": END 
2010 N = 15 
2020 FOR J = 1 TON: REM INITIALISIERE FARBEN 
2030 CDY (U) = J 
2040 NEXT 
2050 GOSUB 2900: REM WECHSLE DIE FARBEN 
2060 FOR J = 1 TO NC: REM WAEHLE DIE ERSTEN 24NC FARBEN 
2070 CPA(J,O) = CD4 2 3 J - i) 
2080 CF% (9,1) = CD4(2 4 ID 
2090 NEXT 
2100 N = NP: REM ZAHL DER KARTENFAARE 
2110 FOR J = 1 TON: REM INITIALISIERE KARTENMOTIVE UND ANGADNUNG 
2120 FR%(J,0) =NT & RND (1) + 1: REM WAEHLE MOTIV FUER RJ 
2150 FR%(J,1) = NC & RND (1) + 1: REM WAEHLE FARBEN FUER FAAR J 
2140 IF J = 1 THEN 2200 
2150 7z=0 


2100 


EN PAAR SEIN 


2170 


EICHEN FUER GLEICHES FAAR 


2180 
2190 
2290 


FOR K = 1 TO J- 1: REM DAS PAAR SOLL VERSCHIEDEN VON DEM VORHERGEHEND 


IF PR4(J,0) = PRA(K,O) AND FR%1J,1) = FRA(K,2) THEN Z = 1: REM SETZE Z 


NEXT 


IF 2 >» © THEN 2120: REM WAEHLE DAS FAAR NOCHMAL 
CDA(2 & 3-1) = J: REM ZWEI KARTEN FUER FAAR J 


2210 CD (2 I =) 


2220 
22350 


NEXT 


GOSUR 9560: REM INITIALISIERE DEN AUSDRUCK VOR DEM MISCHEN DER KARTEN 


2300 N = 2 x NP: REM ZAHL DER BENUTZTEN KARTEN 
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N GOSUR 2900: REM MISCHE DIE KARTEN 
<520 TR = 0: REM ZAHL DER VERTAUSCHUNGEN 
2400 GOTO 3000 
2700 FOR Z=N TO2STEP - 1: REM MISCHE CD%A(1,...,N) 
210 ZA=Zı RAND (1) +1 
2920 Zi = CD%(Z): REM VERTAUSCHE ZWEI ELEMENTE 
2930 CDX(Z) = CDX(Z% 
2940 CDY(Z%) = 71 
2950 NEXT 
2960 RETURN 
2997 : 
2998 REM ix WAEHLE NEUES FAAR #% 
2999 : 
3000 OP$ = "ERSTE KARTE: " 
S010 OH = 10 
20 Pi = 0: REM ERLAUBE JEDE GUELTIGE WAHL 
GOSUR 3500: REM NIMM EINE GUELTIGE KARTE 
IF J = 0 THEN 5200 
D Pi = J: REM ERSTE WAHL 





















00 OP$ = " ZWEITE:" 
OÖ QH = 28 
GOSUR 3500: REM HAEHLE EINE ANDERE GUELTIGE KARTE 
IF J = 0 THEN 5200 


0 FP2 = J: REM ZWEITE WAHL 

TR = TR + 1: REM EINE WEITERE VERTAUSCHUNG 

VTAB 25: HTAR 10: FRINT LEFT$ (BL$,50): REM LEERE ZEILE 
IF CDA:P1) > CD%(P2) THEN 40006: REM KARTEN PASSEN NICHT 
GOTO 5000: REM EIN FAAR 






EM * ALLGEMEINER CODE FÜER DIE KARTENWAHL & 
REM EINGANG: OP$ SOFORT 
REM OH HTAB FUER SOFORTIGE ANTWORT 
AUSGANG: J KARTENZAHL 
0 ESC 
FROZEDUR LAESST NUR DIE WAHL NOCH NICHT BESTIMMTER PAARE ZU 
ERLAUBT NICHT DIE WAHL VON Pi 


25: HTAB OH: FRINT OP$; 


1: GOSUB 10000: REM EINGABE EINES ZEICHENS 
FZI%= - 1 THEN J = 0: RETURN : REM ESC 
F Zt "A" OR Z$ > LC$ THEN 3700: REM BUCHSTABE IST NICHT GUELTIG 
S540 4 = ASC (76) - ASC ("A") +1 
3550 IF CD4(J) < = © OR J = Pi THEN 3500: REM KARTE WURDE SCHON GEWAEHLT 


3360 GOSUB 8200: REM DRUCKE KARTE AUS 

3570 RETURN 

3597 : 

3598 REM * BEREITS GEWAEHLT %* 

3599 : 

3600 0% = "DIESE KARTE WURDE BEREITS GEWAEHLT" 
3610 GOTO 3710 

3897 : 

3698 REM & WAEHLE EINEN GUELTIGEN BUCHSTABEN # 
3699 : 

3700 0% = "WAEHLE EINEN BUCHSTABEN VON A BIS " + LC# 
37110 P = 80 

3720 GOSUB 3900 

3730 GOTO 3500: REM VERSUCHE NOCH EINMAL 

3891 : 

3892 REM * DRUCKE HINWEIS ZEILE & 





BE 


3897 : 

5894 REM EINGANG: 0% AUSZUDRUCKENDER TEXT 
239895 REM 12 FAUSE 

3899 : 


3900 VTAR 24: HTAB 10: PRINT 0%; 
3910 NORMAL 
3920 YP = P: GOSUB 11400: REM PAUSE 


3930 HTARB 10: FRINT LEFTS$ (BL$,29):: REM LEERE HINWEIS ZEILE 
3940 RETURN 


3997 : 
3998 REM 3 KSRTEN FASSEN NICHT & 
3999 : 

\ 3000 0% = "tx KEIN PAAR x" 


4010 F = 150 
#u20 GOSUS 3900 


4100 J = Pl: REM DREHE KARTE 1 UM.BILD NACH UNTEN 
4110 GOSUB 8000 


4129 J = F2: REM DREHE KARTE 2 UM,BILD NACH UNTEN 
#130 GOSUB 8000 


4140 GOTO 7000: REM WAEHLE ANDERES PAAR 


4997 : 

43998 REM % KARTEN PASSEN # 
4999 : 

Sco0 Q# = "ik RICHTIG ##" 
5010 FLASH 


5020 P = 150 

S050 GOSUB I900 

5050 3 = Filz REM ENTFERNE KARTE 1 

5060 GOSUB 59700 

5070 J = P2: REM ENTFERNE KARTE 2 

5080 GOSUB 5900 

SIO0O N=N - 2: REM ZWEI KARTEN WENIGER 

5110 IF N > O0 THEN 3000: REM VERRIGE KARTEN 

5200 GR : HOME : REM DRUCKE DIE ORIGINAL ANORDNUNG 
210 VTAB 21: INVERSE 

3220 IF N > 0 THEN HTAR 9: INVERSE : PRINT "HIER SIND ALLE KARTEN. ..": NORMAL 


5230 IF N = Ö THEN HIAB 2: PRINT "DU HAST ALLE PAARE IN ";TR;" VERSUCHEN GEF 
UNDEN.": NORMAL 


300 FOR I = 1 T0 2% NP: REM DRUCKE KARTEN MIT BILD NACH OBEN 
5310 GESUR 8206 
5320 NEXT 
5350 6019 #000; REM NOCHMAL? 
5700  GOSUR 9990: REM  ENTFERNE KARTE J 
SI10 PRINT" "; 





h S920 GOSUS 8100: REM LOESCHE KARTE 
Sep CDA(J) = — CD4LI): REM ZEICHEN KENN FAAR GEFUNDEN 
5940 RETURN 
5997 : 
5998 REM +% NOCH EINMAL? *# 
i 5999 : 


&000 HTAB 1: VTAB 24 
6010 PRINT "NOCH EINMAL SPIELEN (J OR N? "; 
} 6020 GOSUB 11200: REM  J/N 
5030 ON 2% + 2 GOTO 6160,6000,2000,6100: REM ESC. UNSUELTIG, J. N 
{ 8100 PRINT : PRINT 
6110 PRINT "DANKE FUER’S MITSPIELEN."; 
+ 
a 


6120 END 
- 7997 : 
i 7998 REM * DRUCKE KARTEN PROZEDUREN & 


2) 96 


79997 
8000 
8010 
g100 
8110 
8120 
8130 
8140 
8150 
8160 
8200 
8210 
822 
8230 
8240 
8250 
8250 
8270 
8300 
8310 
8320 
330 
8340 
8I50 
8I60 
8370 
8400 
8410 
8420 
8450 
8440 
8450 
8460 
8470 
8480 
8500 
8510 
8520 
8530 
8540 
8550 
8550 
8570 
8600 
8610 
8620 
8530 
8640 
8650 
8650 
8570 
8680 
8997 
8998 
8999 
7000 
F01Q 
9030 
7040 
9080 
9070 





COLOR= 1: REM x DRUCKE KARTE J BILD NACH UNTEN 

GOTO 8110 

COLOR= 0: REM * LOESCHE KARTE J 

H = HA 
v= v0) 

FOR Z=HTOH +CH 

VLIN V,V+CVATZ 

NEXT 

RETURN 

7% = ABS (CD%(J)): REM DRUCKE KARTE J BILD NACH OBEN 





REM AENDERE ZEICHEN PROZEDUR WENN CH,CV VERAENDERT 

REM AUSGANG: 7% FAARNUMMER VON KARTE J 

H = H%A(J): REM H-FOS 
V=v%lJ)z REM V-POS 

Ci = CP%(PRA(2%,1),0): REM FARBE 1 

C2 = CF%(PR%A(Z%,1),1): REM FARBE 2 

ON FR%(Z%,0) GOTO 8300,8400,8500,8800: REM DAUCKE KARTEN MOTIV 
FOR Z=HTOH + 1: REM MOTIV 1 = 3 V-STREIFEN 

COLOR= Ci 

VLIN V,V+CVATZ r 
VLINV,V+CVATZ+3 { 
NEXT \ 
COLOR= C2 y 
VLIN V,V +CVATH +2 

RETURN 

FOR Z=VTOV + 1: REM MOTIV 2 = 3 H-STREIFEN 

COLOR= C1 

HLIN H,H + CHAT Z 

HLINH,H + CHATZ +5 

COLOR= C2 

HLIN H,H +CHATZ +2 

HLINH,H + CHATZ +3 

NEXT 

RETURN 

FOR Z = H TO H + 2 STEP 2: REM MOTIV 3 = 5 V-STREIFEN 

COLOR= Ci 

VLIN V,V + CVATZ 

VLINV,V+CVATZ+2 

COLOR= C2 

VLIN V,V+CVATZ+I 

NEXT 

RETURN 

FOR Z = V TO V + 3 STEP S: REM MOTIV 4 = 5 H-STREIFEN 

COLOR= Ci 

HLIN H,H + CHAT Z 

HLINH,H +CHATZ +3 

COLOR= C2 

HLIN H,H + CHATZ +1 

HLIN H,H + CHATZ +2 

NEXT 

RETURN 

REM 14 INFORMATIONEN *%# 

TEXT : HOME 

PRINT "KONZENTRATION IST EIN MEMORY-SPIEL." 

PRINT "DIE KARTENPAARE WERDEN GEMISCHT UND “ 

PRINT "UMGEDREHT. VERSUCHE DIE FAARE ZU FINDEN." 

PRINT “DIE KARTEN SIND ENTSFRECHEND DIESEM“ 

FRINT "DIAGRAM ANGEORDNET: " 
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on 


9080 INVERSE :Z2 = 17 

9090 HTAB Z: PRINT "ABCDEF" 

9100 HTAR Z: PRINT "GHIJKL" 

9110 REM HTAR Z:PRINT "MNOFOR" 

9120 REM HTAB 2:PRINT "STUVWX" 

9130 NORMAL 

9150 PRINT "WAEHLE EINE KARTE DURCH EINTIFFEN EINES" 

9150 PRINT "BUCHSTABEN VON A BIS ";LC$;". (WENN " 

9170 PRINT "SIE DIE LINKE OBERE KARTEN WAEHLEN, DANN TIFPEN SIE A. 

9190 PRINT "DU KANNST NUR ZWEI KARTEN GLEICHZEITIG SEHEN. WENN DU EIN PARR 6 
EFUNDEN HAST" 

9200 PRINT "VERSCHWINDEN DIE ZWEI SFIELKARTEN. % 

9220 PRINT "ES GIBT EINE BEGRENZUNG IN DER ZAHL DER VERSUCHE. " 

9240 PRINT "DRUECKE ";: INVERSE : PRINT "ESC";: NORMAL : FRINT " FUER PROGRAM 
MENDE." 

9260 FRINT "MIT RETURN GEHT ES WEITER.. ": 

9270 GOSUB 11500: REM WARTE AUF TASTENDRUCK 


9280 IF 27% = - 1 THEN 5100: REM ESC 

9290 RETURN 

9497 : 

9498 REM 3% GEMISCHTER LOWRES-TEXT-BILDSCHIRM 


9499 : 

9500 6R : HOME 

9510 FOR J=1 TO Zt NP 

9520 GOSUB 8000: REM DISPLAY CARD FACE DOWN 

9530 NEXT 

9540 VTAB 21: HTAB 10: FRINT "JEDES ZEICHEN STEHT FUER EINE KARTE. 
SUCHE DIE PAARE!" 

9560  INVERSE 

9570 FOR J=1 TO 2ı NF 

9580 GOSUB 9900 

9590 PRINT CHR$ ( ASC ("A") - 1 + 05 

9600 NEXT 

9610 NORMAL 

96820 RETURN 

9900 7% = (J - 1) / &: REM LOKALISIERE KARTE J IN BUCHSTABEN-MATRIX 

9910 VTAB 21 + 7% 

9920 HTBJ- 1-5 7% + 2 

9930 RETURN 


49997 : 

49998 REM 33 VARIABLEN-VEREINBARUNGEN ## 

49999 : 

50000 REM PR%(J,0) KARTENMOTIV VON FAAR J 

50010 REM FRA(J,1) FARBENFAAR VON KARTE J 

50020 REM CP%(K,O) FARBE 1 VON FARBENFAAR K 

50050 REM CFA(K,1) FARBE 2 VON FARBENFAAR K 

50040 REM CD%(J) FAARNUMMER VON J-TER KARTE WENN NICHT GEFUNDEN 
50050 REM = PAARNUMMER WENN BEREITS GEFUNDEN 
50050 REM HA(3) HORIZONTALE FOSITION VON KARTE J 
50070 REM vr) VERTIKAL 

50080 REM NT ZAHL DER AKTUELLEN KARTENMOTIVE 
50090 REM NC ZAHL DER AKTUELLEN KARTENFAARE 
50100 REM NF ORIGINALZAHL DER PAARE 

50110 REM [& 0% 5 BUCHSTABE DER LETZTEN KARTE 

50120 REM N ZAHL DER NOCH NICHT GEFUNDENEN KARTEN 
50130 REM CH HORIZONTALE BREITE EINER KARTE 
50140 REM cv VERTIKALE HOEHE EINER KARTE 

50159 REM TR ZAHL DER VERTAUSCHUNGEN 

50160 REM Pi ERSTE WAHL 

50170 REM P2 ZWEITE WAHL 

60000 : 


80010 REM * COFYRIGHT 1981 BY HOWARD FRANKLIN, FALO ALTO, CA %* 
60020 : 


Geben Sie dieses Programm ein. Verbinden Sie es mit EINGABE EINHEIT 
und BILD EINHEIT. Speichern Sie das Programm mit dem Namen KON- 
ZENTRATION ab. 

Neben der erwarteten Fehlerabfrage-Prozedur zur Vermeidung falscher Ein- 
gaben vereinigt KONZENTRATION noch andere Vorteile in sich, durch die 
das Programm einfach zu handhaben ist. Die Spielkarten werden von einer 
Matrix am linken unteren Bildschirmrand präsentiert. Diese Matrix bleibt 
während des ganzen Spiels auf dem Bildschirm sichtbar. Sie wird ständig er- 
neuert, wenn Karten ausgewählt und zusammengehörige Paare gefunden 
werden. Auf diese Art wird der Spieler daran erinnert, nicht den gleichen 
Buchstaben für beide Karten eines Paares zu wählen bzw. eine Karte zu wäh- 
len, die schon mit einer anderen verbunden wurde. (Im letzten Fall ver- 
schwinden die Spielkarte und der zugehörige Buchstabe vom Bildschirm). 


Frage 1: Welche Antwort druckt das Programm aus, wenn eine bereits ent- 
fernte Spielkarte gewählt wird? 
Weitere Vorteile der Buchstabenmatrix sind: Der Spieler braucht keinen 
Spielregler zu benutzen oder sich eine komplizierte Reihenfolge von Cursor- 
bewegungen zu merken. Alle notwendigen Informationen bleiben während 
des ganzen Spiels auf dem Bildschirm sichtbar. Macht der Spieler einen Feh- 
ler, druckt der Computer hilfreiche Hinweise aus. Personen, die das Spiel 
nicht zu Ende spielen wollen, drücken ESC und anschließend RETURN. 
Um ein ansprechendes Bild zu gestalten, sollten inverse und blinkende Text- 
darstellungen sparsam benutzt werden. In KONZENTRATION wird die 
inverse Darstellung benutzt für die Nachricht “DU HAST ALLE PAARE GE- 
FUNDEN“. Die FLASH-Funktion wird benutzt, um dem Spieler ein gefun- 
denes Paar anzuzeigen. 
Frage 2: Welche Zeilennummer beinhaltet die Nachricht, daß ein Karten 
paar gefunden wurde? 
Für den Spieler hat das Spiel nur einen einzigen Schwierigkeitsgrad. Wir 
können aber mehrere Parameter des Programms verändern und damit den 
Schwierigkeitsgrad steigern. Die wichtigen Ausdrücke, die die grafische Dar- 
stellung des Spiels bestimmen, sind alle als Variablen geschrieben und am An- 
fang des Programms festgelegt. Wir haben KONZENTRATION in einer Form 
entworfen, die es uns leicht macht, Zahl und Typ der dargestellten Farb- 
muster zu verändern. Die Farbmuster sind Kombinationen von drei oder fünf 
horizontalen bzw. vertikalen Streifen (siehe Zeile 1040 und 1050). 
Folgende Programmänderungen sind möglich: weniger Farben (Zeile 1510), 
weniger horizontale und vertikale Streifen (Zeile 1500) und weniger bzw. 
mehr Spielkarten (Zeile 1520). 
Die Spielkarten werden vor Beginn eines jeden Spiels neu gemischt. Wir haben 
in unserer Version zwölf Karten (sechs Paare) gewählt; die Kartenpaare 
suchen wir aus allen möglichen Farben und Mustern aus. Es soll zwei volle 
Reihen von Spielkarten in farbiger, reizvoller Anordnung geben. Sie können 





99 





aber die Parameter nach eigenem Entschluß wählen. Dabei ist darauf zu ach- 
ten, daß die Anzahl der Farbstreifenkombinationen multipliziert mit der An- 
zahl der Farbpaare größer (oder gleich) der Anzahl der Kartenpaare ist. 


Frage 3: Wie wird die Anzahl der Spielkarten am Beginn des Spieles ver- 
ändert? 


Das Spiel ist einfacher zu spielen, wenn die Zahl der Kartenpaare, die Zahl 
der Kartentypen und Farbpaare und die Zahl der Streifen ‚auf einer Karte 
vermindert werden. 

KONZENTRATION verfügt über keine Klangmöglichkeiten. Wir glauben, daß 
dieses Spiel rein visueller Natur sein sollte. Wenn Sie Klänge und Töne hin- 
zufügen wollen, dann erweitern Sie das Programm mit KLANG EINHEIT. 
Geben Sie den Eingangsvariablen entsprechende Anfangswerte. Das Spiel ver- 
wendet noch viele weitere elegante Programmiertechniken. Schauen Sie sich 
das Listing sorgfältig an, und Sie werden einige davon entdecken. 


Sterne 


STERNE ist ein Ratespiel mit Zahlen, das unter dem Namen STARS am 
People’s Community Center entwickelt wurde. Im Gegensatz zu anderen 
Zahlenspielen, die ebensogut mit Bleistift und Papier zu spielen sind, nutzt 
STERNE die große Rechengeschwindigkeit des Computers aus. Das Pro- 
gramm antwortet auf jeden Rateversuch mit dem Ausdruck von Sternen an- 
statt irgendwelcher Kommentare. Je mehr Sterne erscheinen, desto mehr 
nähern wir uns dem richtigen Ergebnis. Das Programm errechnet die Anzahl 
der ausgedruckten Sterne, und so erhalten wir bei jedem Versuch weitere 
Informationen über die richtige Lösung. STARS, ursprünglich für Fern- 
schreiber geschrieben, wurde von uns in einer LO-RES-Version für den 
APPLE umgeschrieben. Das Programm nutzt die Möglichkeiten der Bild- 
schirmgestaltung des APPLE. Auch macht es von der Möglichkeit der Fehler- 
bearbeitung in EINGABE EINHEIT Gebrauch. Da wir in diesem Programm 
das ‚Pause- oder Tastendruck‘-Unterprogramm verwenden, legt es nach jeder 


Antwort eine Pause ein, die der Spieler durch Drücken einer Taste beenden 
kann. 


10 REM ...STERNE - EINGABE KLANG EINHEIT... 
13: 

997: 

9978 REM 3% INITIALISIERUNG *% 

997 : 

1000 EP$ = CHR® (7) 

1010 L2 LOG (2) 

1020 MN 1 

1030 MX 40 

1040 SI% = LOG (MX - MN) / LOG (DI +1 
1050 TB 13 

1050 GB = 58 

1070 GT = GB - 27 

1197 : 
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1198 REM * TITELBILD & 

1199 : 

1200 GR : HOME 

1210 FOR Z = 1 TO 100: REM FARBPUNKTE 

1220 COLOR= 15: IF RND (1) < .75 THEN COLOR= 173 

1250 FLOT INT (40 & RND (1)), INT (40 & RND (19) 

1240 NEXT 

1250 COLOR= 15: FOR Z = 15 TO 23: REM WEISSES RECHTECK 
1260 HLIN 4,34 AT zZ 

1270 NEXT 

1280 X$ = "STERNE":XV = 16:XC(1) = Q: GOSUB 15300 

1290 VTAB 23: HTAB 8: PRINT "MIT RETURN GEHT ES WEITER.."; 
1300 GOSUB 11500: REM WARTE AUF TASTENDRUCK 

1310 IF 2Z%4= - 1 THEN END : REM ESC 

1900 GOSUB 9000: REM INFORMATIONEN 

1997 : 

1998 REM ** INITIALISIERUNG FUER NEUES SPIEL %#%# 

1999 3 

2000 GOSUR 9500: REM GEMISCHTE TEXT-GRAFIK FORM 

2010 A= INT ({MX - MN + 1) % RND (1)) + MN 

2020N=0 

2030 YL = MN 
2040 YH = MX 
298 

2998 : REM x NAECHSTER VERSUCH #% 

2999 : 

35000 PRINT "RATE: "; 

3010 YW = 5: GOSUB 11000: REM EINGABE INTEGER 


3020 IF 27% = - 1 THEN 6200: REM ESC 

3030 IF 27% > 1 THEN HTAB TB: PRINT "EINE ZAHL VON “;MN;" TO ";MX;", BITTE * 
": GOTO 3000: REM UNGUELTIGE ZAHL 

3006=2 

3100 N=N + 1: REM  %* GUELTIGER VERSUCH & 

3110 IF A= G THEN 5000 

3997 : 

3998 REM *% FALSCH GERATEN 4% 

3999 : 


4000 S% = S1% - INT ( LOG ( ABS (6 - AM) / L2) 
4010 GOSUB 8000 
4020 GOTO 3000 
4997 : 
4998 REM xx RICHTIG GERATEN *% 
4999 : 
5000 S% = 20 
S010 GOSUB 8000: REM BALKEN 
5020 WD = 100:27$ = "AAHHJJH": GOSUB 13300: REM KLANG 
5030 PRINT 
5040 FLASH 
5050 HTAR 9: PRINT "DU HAST ES IN ";N;" VERSUCH"; 
S060 IF N > 1 THEN PRINT "E": 
5070 FRINT " GESCHAFFT!" 
5080 NORMAL 
5997 ı 
5998 REM xt NOCHMAL? #% 
5999 : 
&000 HTAB 1: VTAB 24 
6010 PRINT "NOCH EINMAL(J OR N? "; 
20 GOSUB 11200: REM  J/N 
ns a 1% * 2 GOTO 6100,5000,2000,6100: REM ESC, UNGUELTIG, J, N 
&100 PRINT : PRINT 
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6110 FRINT "DANKE FUER’S MITSPIELEN."; 
$120 END 

6197 : 

61793 REM *+ AUFGABE %%# 

6199 : 

6200 HTAB TR 

&210 PRINT "MEINE ZAHL WAR ";A 

6220 GOTO 5000 

7997 : 

7998 REM *# ANTWORTE AUF VERSUCH *%# 
7999 : 

9000 HTARB TB 

8010 SFEED= 120 

8020 FOR J = 1 TO S% 

8050 PRINT "*";BP%; 

8040 NEXT 

8050 SPEED= 255 

8050 PRINT 

8070 IE GR - 3 # S% < GT THEN S% = S% - 1: GOTO 8070 
8100 REM % DRUCKE BALKEN &* 

8110 COLOR= 5% 


8120 VLIN GB,GR - 3 & SYATG - MN 
8130 RETURN 

8997 : 

8798 REM 3% INFORMATIONEN ## 
89997 


7000 TEXT : HOME 

9010 VTAB 4 

9020 HTAB 14: FRINT "x*t% STERNE ###" 

9030 PRINT 

204G PRINT 

7050 PRINT "ICH DENKE AN EINE ZAHL ZWISCHEN" 

9060 FRINT MN;" UND “;MX;". VERSUCHE DIE ZAHL ZU ERRATEN." 

9070  FRINT 

9080 FRINT "NACH JEDEM VERSUCH DRUCKE ICH EIN ODER " 

9090 PRINT "MEHRERE STERNE (#) AUS. JE NAEHER DU" 

F100 PRINT "MEINER ZAHL KOMMST, DESTO MEHR STERNE 

9110 VTAR 20 

120  FRINT "DRUECKE ";: INVERSE : PRINT "ESC";: 
DE." 

?130 PRINT 

2140 PRINT "MIR RETURN GEHT ES WEITER... "; 

9150 GOSUR 11500: REM WARTE AUF TASTENDRUCK 

Fi60 IF 7% = - 1 THEN 8100: REM ESC 

9200 GR : HOME 

9210 X$ = "STERNE":XV = G:XC(1) = 15: GOSUB 153500 

9220 PRINT "....5...10...15...20...25...50...39..,40" 


9230 POKE 34,22: REM SETZE TEXTFENSTER 
9290 RETURN 


DRUCKE ICH AUS." 


NORMAL : PRINT " FUER SPIELEN 


9497 : 

9498 REM  x*% GEMISCHTE LOWRES-GRAFIK GESETZT *% 

9499 : 

9500 COLOR= 0: FOR Z = GT TO GB: HLIN 0,39 AT Z: NEXT : REM LOESCHE GRAFIKB 
EREICH 


9510 HOME : REM LOESCHE TEXTFENSTER 
9520 RETURN 

49991 : 

49992 REM x*4% STERNE #4* 

49993 : 


49994 REM CRIGINALVERSION DER FEOPLE’S COMPUTER COMPANY, MENLO PARK, CA 
49997 : 
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49999 REM ++ VARIABLENVEREINBARUNGEN &% 


49999 : 

50000 REM A ANTWORT 

50010 REM BF$ BEEF (CHR$(T7)) 

50020 REM F FLAG FUER GUELTIGE EINGABE 
50030 REM G RATEVERSUCH 

50040 REM GE BODEN DES GRAPHEN 

50059 REM ST KOPF DES GRAPHEN 

50050 REM J SCHLEIFEN ZAEHLER 

50070 REM L2 LOS (2) 

50080 REM MN MINIMALE ANTWORT 

S0090 REM MX MAX IMUM 

50100 REM N ZAHL DER VERSUCHE 

S01l10 REM 5% ZAHL DER STERNE FUER VERSUCH 
50120 REM 51% MAXIMUN DER STERNE +1 
50130 REM TR TAB FOSITICN FUER ANTWORT 


SOO00 : 
60010 REM %* COPYRIGHT 1981 BY HOWARD FRANKLIN, FALO ALTO, CA 
s0020 


Verbinden Sie dieses Programm mit EINGABE EINHEIT, KLANG EINHEIT 
(löschen Sie die Zeilen 18000 bis 19999) und BILD EINHEIT. Speichern Sie 
es unter dem Namen STERNE. 

Wie wir wissen, steht uns bei der LO-RES-Grafik nur ein vier Zeilen großes 
Textfenster am unteren Bildschirmrand zur Verfügung. Deshalb haben wir 
die Informationen zu diesem Spiel an den Anfang des Programms gesetzt. 
Durch die optische Wiedergabe auf dem Bildschirm bleibt die Idee des Spiels 
deutlich erkennbar. 

In diesem Spiel werden alle Hinweise eindrucksvoll auf dem Bildschirm aus- 
gedruckt. Die Darstellung der Zahlen in einer Reihe ermöglicht eine visuelle 
Anordnung der Information, die in den früheren Fernschreiber-Versionen 
nicht möglich gewesen ist. Alle Hilfen und Hinweise bleiben auf dem Moni- 
tor ständig sichtbar. Deshalb hielten wir es für vertretbar, stets nur eine Anı 

wortzeile im Textfenster des Bildschirms erscheinen zu lassen. 

Da wir die Grafik nicht nur als Dekoration verwenden, sondern in das Spie 

integrieren, ist diese Version von STERNE ein sehr hübsches Spiel. Wenn Sie 
Programme entwickeln bzw. verbessern, überlegen Sie, wie grafische Effekte 
im Programm verwendet werden können. Zum Beispiel können Linien und 
Bilder dazu benutzt werden, hilfreiche Informationen zu vermitteln. 

Wir haben die Zahl der erlaubten Rateversuche nicht begrenzt, wie das sonst 
in diesen Spielen üblich ist. Das Einschränken der erlaubten Versuche kann 
Kinder vom Spielen fernhalten. Durch Verwendung unserer ESC-Vereinba- 
rung kann der Benutzer wählen, ob er weitermachen oder aufgeben will. 
Das ist weitaus angenehmer und spielerfreundlicher. 
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Simon 


SIMON ist unsere Version des populären Spiels, in dem der Computer eine 
Melodie spielt, die der Spieler ohne Fehler nachspielen soll. 


10 REM » .. SIMON-EINGABE KLANG 

El 9 

GER 

998 REM x% INITIALISIERUNG #% 

Due: 

1000 DIM T4(30) 

1100 01 = 1: REM WIEDERHOLE ZAHL IN MELODIE OFTION 

1110 082 = 1: REM NOTE UNTER BOX OFTION 

1120 03 = 1: REM WAEHLE BOX OFTION 

1130 Q4 = 1: REM KLANG NOTE OPTION 

1200 TL = 1: REM TIEFSTE NOTE 

1210 TH = 8: REM HOECHSTE NOTE 

1220 TD = 80: REM LAENGE JEDER NOTE 

1250 TP = 10: REM PAUSE ZWISCHEN NDTEN 

1240 LL = 3: REM MINIMALE LAENGE JEDER MELODIE 

1250 LH = 20: REM MAX IMUM 

1300 BV = 3: REM BOX HOEHE 

1310 VR = 30: REM V-FOS DER BOX 

1320 VS = VR - BV - B: REM V-FOS DER GEKAEHLTEN BOX 
13350 HT = 19: REM H-FOS DER MELODIE 

1540 VC = 235: REM V-FOS DER COMFUTER MELODIE 

1350 VL = 24: REM V-FOS DER LAENGE 

1560 VY = 22: REM V-FOS IHRER MELODIE 

1400 CR = 1: REM HINTERGRUND FARBE 

1310 CR = 2: REM BOX FARBE 

1420 CR = I: REM FARBE GEWAEHLTER BOX 

1500 L = LL: REM LAENGE DES ERSTEN TONES 

1597 : 

1598 REM * TITELBILD & 


1600 TEXT : HOME 
1610 WP = O0: GOSUR 153000: REM VERMEIDE INITIALISIERUNGS VERZOEGERUNG BEI 
TER NOTE 
1620 S$ = "SIMON" 
f 1650 FOR J = 1 TO LEN (5%) 
1640 VTAB 18: HTAB 17 + Jz: INVERSE : FRINT MID$ (S5%,J,1) 
1650 VTAB 12 - J: HTAB 4 #& J: FRINT MID$ (Ss,J,1);: NORMAL 
1660 WR = J:WD = &0: GOSUB 17000: REM NOTE J 


m 
2) 
[7 


| 1670 YP = 15: GDSUB 11400: 
1 1680 FRINT CHR$ (89);" " 
{ 1690 NEXT 


1700 SFEED= 100: FOR Z = 1 TO 4: FRINT CHR*& (7);: NEXT : SPEED= 7255 
1710 VTAB 25: HTAB 8: FRINT "MIT RETURN GEHT ES WEITER. ."; 
1720 GOSUBR 11500: REM WARTE AUF TASTENDRUCK 





1730 IF Z%= - 1 THEN END : REM ESC 

1900 REM GOSUB 9000: REM INFORMATIONEN 

er 

1998 REM ++ INITIALISIERUNG FUER NAECHSIE NOTE #%* 
1999 : 

2000 FOR J = 1 TOL: REM MACHE MELODIE 

2010 T%4(J) = (TH - TL) & RAND (1) + TL 

2020 NEXT 


2030 GOSUB 8300: REM SETZE BOXEN 
2040 VT = VC:09 = 01:01 = Ö: GOSUB 8900: REM SPIELE COMPUTER MELODIE (DRUCKE 
NICHT MELODIE) 
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2050 
2060 
2100 
2110 
2120 
2130 
2050 
2060 
2100 
2110 
2120 
2130 
2997 
2998 
2999 





01 = 09: REM SFEICHERE MELODIE OFTION 

YP = 10: GOSUR 11400: REM PAUSE 

HOME 

VTAB VL: HTAB HT - 8: FRINT "LAENGE: ";L;: REM DRUCKE LAENGE 

VTAB VYY: HTAB HT - 11: PRINT "DEINE MELODIE"; 

NJ = 1: REM ERSTE NOTE 

01 = 09: REM SPEICHERE MELODIE OFTION 

YF = 10: GOSUB 11400: REM PAUSE 








HOME 
VTAR YLz HTARB HT — 8: PRINT "LAENGE: ";L;: REM DRUCKE LAENGE 
VTAR VY: HTAR HT - 11: PRINT "DEINE MELODIE"; 


NJ = 1: REM ERSTE NOTE 
REM *% NAECHSTE NOTE IN MELODIE *#* 


GOSUB 11600: REM TASTENDRUCK, OHNE WIEDERGARE, OHNE VORHERIGES ZEICHEN 
IF ZU = - 1 THEN VTIAR VY: HTABR HT + 2 + NJ: FLASH = PRINT "ESC";: NORMAL : GOTO 


4000: REM ESC 


RO 





N= Z - 176: REM UANDLE UM IN NOTE # 

IFN < TLORN TH THEN 3000: REM UNGUELTIGE NOTE 
VT = YY: GOSUR 8400: REM ANTWORTE AUF NOTE 

IF N = T%{NTD THEN 5000: REM RICHTIGE NOTE 






REM #* MELODIE WAR FALSCH %% 


4000 SPEED= 100: FOR Z = 1 TO 4: PRINT CHR%& (7);: NEXT : SPEED= 255 
4010 YF = 10: GÜSUR 11400: REM PAUSE 

4020 09 = 01:01 = 1: GOSUR 8800: REM SPIEIE COMPUTERMELODIE(DRUCKE MELODIE) 
4050 U1 = 09: REM SPEICHERE FRINT NOTE OFTION 

4040 IFL>LLIHENL =1. 1 

4050 GOTQ 5000: REM NOCHMAL”? 

4997 ; 

4998 REM $+ RICHTIGE NOTE ## 

4999 : 

000 NJ = NI + 1 

5010 IF N] = 1. THEN 3000; REM NAECHSTE NOTE 

OFF. 

5098 REM *% RICHTIG ## 

5099 ; 

5100 HOME 

S110 YTAR WY: HIAR HT - 12: PRINT "DAS IST RICHTIG:"; 
5120 09 = 01:01 = 1: GÜSLE 8900: REM SPIEL DIE MELODIE 
S130 01 = 09: REM SFEICHERE FRINT MELODIE OPTION 

5140 REM 42 NAECHSTE MELÜDIE IST LAENGER ## 

5150 IFL <LH THENL. =L +1 

5997 : 

59798 REM s#+ NOCHMALT *# 

599° ; 

S00U HIAR 1: YVIAR 24 

&U10 FRINI "NAECHSTE MELODIE (J OR WM? "5 

020 GOSUR 11200: REM J/N 

6030 ON 2% + 2 GUTO 8100, 6000, 2000,6100: REM ESC,UNGUELTIG,J, N 
8100 FRINT : FRINT 

&110 FRINT "VIELEN DANK FUER"S MITSFIELEN."; 

&120 END 

TERWER 

7998 REM ** DRUCKE BOX UNTERPROGRAMME *# 

7392: 

8090 COLOR= CR: REM + DRUCKE BOX N 

8010 2 = YR 

8020  GCI0O 8200 
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8050 
8060 
8100 
8110 
8120 
8150 
8180 
8200 
8210 
8220 
8230 
8240 
8250 
8260 
8270 
8300 
8310 
8320 
8330 
8340 
8350 
8360 
8370 
8380 
8400 
8410 
8420 
8450 
8500 
8510 
8520 
8530 
8540 
8600 
8610 


8620 
8830 
8640 
8650 
8660 
8670 
8880 
8800 
8810 
8900 
8910 
8920 
8930 
89740 
8950 
8997 
8998 
8999 
000 
9200 
9210 


9220 
9230 
9240 
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COLOR= CB: REM + LOESCHE BOX N 

G0TO 8010 

COLOR= CS: REM  * DRUCKE GEWAEHLIE BOX N 
zZ = vs 

GOTO 8200 

COLOR= CB: REN * LOESCHE GEWAEHLIE BOX N 

60TO 8110 
Zi= -445&Nı REM * DRUCKE BOX N IN REIHE Z 
REM N = BOX 4 

REM FARBE FUER DRUCKEN ODER ILOESCHEN 

REM zZ = ROW # 

FOR 22 =Z+BV - 1 
HLIN Z1,21 + 2 AT z2 
NEXT 

RETURN 

GR : HOME : REM  &* DRUCKE HINTERGRUND UND ERSTE BOXEN 
COL.OR= CR 

FOR zZ = 0 ı0 38 

HLIN 0,39 Al zZ 

NEXT 

FOR N = TL 10 TH 

GOSUR 8000 

NEXT 

RETURN 

7% = SIR® (WM: REM  * WIEDERHOLE ZAHL. UNTER BOX N 
INVERSE 

60T0 8500 

78 =" "; REM  &* LOESCHE ZAHL UNTER BOX N 

VIAB 21: REM &* DRUCKE Z% UNTER BOX N 

HIAB -2+ 5 N 

PRINT Z$; 

NORNAL 

RETURN 


REM * ANTWORT AUF NOTE N,NJ NOTE IN MELODIE, WIEDERHALE NOTE IN ZEILE VT 
IF 01 > 0 THEN VTAR VI: HINB HT + 3 + NJ: INVERSE : PRINT N;: NORMAL : REM 
WIEDERHOLE NOTE IN MELODIE 

IF 02 > © THEN GOSUB 8400: REM WIEDERHOL.E NOTE UNTER BOX 

IF 03 > O0 THEN GOSUR 8050: GOSUR 8100: REM MWAEHLE ROX 

IF 04 > O THEN WD = TD:UP = N: GOSUR 13000: REM SFIELE NOTE 

YP = TP: GOSUB 11400: REM PAUSE 

IF 05 > O0 THEN GOSUR 8150: GOSUR 8000: REM WIAEHLE BOX 

IF 02 > GO THEN GOSUR 8450: REM LOESCHE NOTE UNTER ROX 

RETURN 
VT = VC: REM + SPIELE DIE COMPUTER MELODIE 

IF DI > O THEN VTIAR VT: HTAB HT - 17: PRINT "COMPUTER MELODIE:"; 

REM * SPIELE MELODIE IN ZEILE VT * 

FOR NJ = 1 TOL 
N = T%{NJ) 

GOSUR 8800: REM ANTWORTE AUF NOTE NJ IN MELODIE 

NEX1 

RETURN 

REM *# INFORMATIONEN ## 


IEXT : HOME 
FRINT 
PRINT "DRUECKE ";: INVERSE : PRINT "ESC";: NORMAL : PRINT " FUER SPIELENDE ." 


INZESTERZEZZEINTIREM DRUCKE VON BODEN 


FRINT 
PRINT "NIT RETURN GEHT ES WEITER.. "; 
GOSUB 11500 


9250 IF 2% = - 1 THEN 6100: REM ESC 
9250 RETURN 

13117 : 

13118 REM PITCHES 

13119 : 

13120 DATA 255,228,203,192,171,152,135,127 

60000 : 

60010 REM &# COPYRIGHT 1981 BY HOWARD FRANKLIN, FALO ALTO, CA % 
50020 : 


Verbinden Sie dieses Programm mit EINGABE EINHEIT und KLANG EIN- 
HEIT. Speichern Sie es als SIMON. 
Die Aufgabe des Spielers ist es, die Melodie des Computers zu wiederholen. 
Dabei benutzt er die Zifferntasten. Unser Spiel gibt sowohl sichtbare als auch 
hörbare Hilfen. Die farbigen Kästchen bewegen sich, und die zu den Tönen 
gehörigen Zahlen erscheinen auf dem Bildschirm. Der Spieler kann sich auf 
die Zahlen, auf die relative Position der Kästchen, auf die Töne oder auf eine 
Kombination dieser drei Möglichkeiten konzentrieren. 
Schauen Sie sich die Variablen an, mit denen das Spiel geändert werden kann 
(Zeile 1100 bis 1500). Die Änderung der Variablen ergibt eine enorme Viel- 
falt von möglichen Variationen. Damit das Monitorbild nicht zu verwirrend 
wird, haben wir allen Kästchen dieselbe Farbe zugeordnet. Die Farbe der 
Kästchen und die des Hintergrundes können in den Zeilen 1400 bis 1420 
verändert werden. Jeder Ton der Melodie unterscheidet sich vom vorher- 
gehenden Ton. Er wird per Zufallsfunktion aus den vorhandenen Tönen aus- 
gewählt. Die Schwierigkeit des Spiels ergibt sich allein aus der Länge der 
Melodien. Lange Melodien sind schwer, kurze Melodien leicht nachzuspielen. 
Der Erfolg des Spielers mit einer Melodie bestimmt, ob die nachfolgende 
Melodie leichter oder schwerer sein wird: Das Programm paßt sich von selbst 
den Fähigkeiten des Spielers an. Wir können das Spiel erschweren, indem wir 
die Pause zwischen den einzelnen Tönen verkürzen. 
Frage 4: Welche Zeile muß dazu geändert werden? 
Die Zahl der möglichen Töne (und der Kästchen) wird im Programm festge- 
legt. Wir haben acht Töne benutzt. 
Frage 5: Wie wird das Programm geändert, damit nur noch fünf Töne ver- 
wendet werden? 
Frage 6: Die Dauer des ersten zu spielenden Tones soll fünf Einheiten be- 
tragen. Welche Zeile wird geändert? 
Frage 7: Wie wird das Programm geändert, damit die Zahlen, die beim Spie- 
len jeder Note erscheinen, verschwinden? 
Das Programm reagiert sofort auf das Betätigen der ersten falschen Taste. 
Ist zum Beispiel eine Melodienfolge 3, 5, 4, aber der Spieler betätigt die 
Tasten 3, 6, 4, dann stoppt das Programm bei 6. Es zeigt an, daß die Melodie 
falsch war, und wiederholt die richtige Tonfolge. 
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Zusammenfassung von Kapitel 7 


In diesem Kapitel haben wir drei besonders hübsche Spiele vorgestellt. STER- 
NE ist eine technisch moderne Version eines alten Computerspiels. KONZEN- 
TRATION und SIMON sind moderne Computerversionen populärer Spiele, 
die wir dem Computer-Zeitalter angepaßt haben. Zusammen mit den vielen 
Variationsmöglichkeiten bekommen wir eine Vielzahl von unterschiedlichen 
KONZENTRATION- und SIMON-Spielen. Wir wünschen dem Leser viel 
Freude damit! 


Lösungen zu Kapitel 7 


Frage 1: 


Frage 2: 


Frage 3: 


Frage 4: 
Frage 5: 


Frage 6: 
Frage 7: 
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DIESE KARTE WURDE BEREITS GEWAEHLT 
(siehe die Programmzeilen 3598 bis 3610.) 
Zeile 5000. Beachten Sie, daß Q$ auch für den Ausdruck andere Hinweise 


in den Zeilen 3600, 3700 und 4000 verwendet wird. Außerdem wird Q$ 
jedesmal in Zeile 3900 ausgedruckt. 


1520 NP=12 (Die maximale Anzahl von Farbenpaaren ist 12 — siehe 
Zeile 1010.) 

1230 TP = 

1210 TH =5 (Oder ändern Sie TL und TH so, daß zwischen diesen 
zwei Werten fünf Noten liegen.) 

1240 LL=5 

1110 Q2=0 





Anhang A 
RENUMBER/MERGE-Hilfsprogramm 





Zum leichteren Gebrauch der vorgestellten Programme und Unterprogramme 

werden sie mit den eigenen Programmen des Lesers verbunden. Das erfordert 

in einigen Fällen, daß die eigenen Programme umnumeriert werden. Auf der 

System Master Diskette, die zum Lieferumfang eines jeden APPLE-Computers 

gehört, befindet sich ein Hilfsprogramm zur Verbindung (Merge) und Um- 

numerierung (Renumber). 

An dieser Stelle wollen wir kurz zeigen, wie das Hilfsprogramm anzuwenden 

ist (durch Starten des Programms RENUMBER INSTRUCTIONS erscheint 

auf dem Bildschirm der komplette Befehlssatz). 

1. Starten Sie das RENUMBER-Programm. Es wird eingelesen und in den 
höheren Speicher-Bereich des Rechners abgelegt. 

2. Lesen Sie Ihr eigenes Programm mit dem Befehl LOAD NAMEI RETURN 
ein. 

3. Tippen Sie: &H RETURN. Das Programm wird nun festgehalten. 

4. Lesen Sie das zweite Programm mit dem Befehl LOAD NAME 2 RETURN 
ein. 

5. Verbinden Sie beide Programme mit: &M RETURN. 

Das Ergebnis befindet sich nun im Programmspeicher des APPLE. Bevor Sie 

irgendetwas anderes durchführen, sollte zuerst das Programm mit einem 

eigenen Namen auf Diskette gespeichert werden. Das komplette Programm 

kann dann gestartet werden. 

Wir haben unsere Programme und Unterprogramme so numeriert, daß sie 

sich voraussichtlich nicht mit den Programmen des Lesers überschneiden. Es 

ist wichtig, daß die Zeilennummern von zwei Programmen sich nicht über- 

schneiden. Wenn sie dies doch tun, treten einige unangenehme Folgen auf. 

Haben zum Beispiel zwei Befehle die gleiche Zeilennummer, tritt diese Zeilen- 

nummer im resultierenden Programm zweimal auf. Zur Vermeidung solcher 

Probleme sollten die Programmzeilen im eigenen oder im gewünschten Unter- 

programm so umnumeriert werden, daß sie sich nicht mehr überlappen. Dazu 
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kann wieder das RENUMBER-Programm benutzt werden. Das Verfahren 
wird wie folgt durchgeführt: 

1. Starten Sie das RENUMBER-Programm 

2. Lesen Sie das Programm ein, das umnumeriert werden soll. 

3. Tippen Sie: & RETURN. 


Das ganze Programm wird nun neu numeriert. Die neuen Zeilennummern be- 
ginnen mit der Zeile 10 und werden in Zehnerschritten fortgesetzt. Alle Be- 
fehle, die auf Programmzeilen Bezug nehmen, wie GOTO, GOSUB, ON ... 
...GOTO und IF... THEN werden automatisch richtiggestellt. Die Umnume- 
rierung eines 16K Programms nimmt ungefähr eine Minute in Anspruch. 
Während dieser Zeit hat es den Anschein, als ob der Rechner untätig sei. 
Glauben Sie bitte nicht, daß ein Fehler vorliegt. Drücken Sie daher auf 
keinen Fall RESET. Anschließend können Sie das Programm speichern, 
starten oder auflisten lassen. 

Der Umnumerierungs-Prozeß kann auch bei einer anderen Zeilennummer als 
bei 10 beginnen oder in anderen Schrittweiten erfolgen. Auch können ein- 
zelne Teile eines Programms neu numeriert werden, ohne das ganze Pro- 
gramm zu verändern. Dazu werden folgende Symbole benötigt: 


F - gibt die Nummer der ersten neuen Zeile an 

1 - gibt die Differenz zwischen zwei aufeinanderfolgenden Zeilen an 
S - gibt die erste Zeile an, die neu numeriert werden soll 

E - gibt die letzte Zeile an, die neu numeriert werden soll. 


Einige Beispiele sind: 
&F100, 120, S350, E660 — Umnumerierung der Zeilen 350 bis 660 begin- 


nend mit Zeile 100 und der Schrittweite 20. Die neuen Zeilennummern lau- 
ten 100, 120, 140, ... 


&S1000, E2500, F1000, 115 — Umnumerierung der Zeilen 1000 bis 2500 
beginnend mit Zeile 1000 und Schrittweite 15. Die neuen Zeilennummern 
lauten 1000, 1015, 1030, ... 
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Anhang B 
Randbemerkungen zum Programmieren der Spiel 


Dieser Anhang ist für den fortgeschrittenen Programmierer geschrieben und 
erläutert die Überlegungen, die einigen Programmen dieses Buches zugrunde 
liegen. Wir erläutern die Notwendigkeit einer Unterprogramm-Bibliothek 
und die Einschränkungen in APPLESOFT BASIC, die Konstruktion und den 
Gebrauch einer solchen Bibliothek betreffend. Assemblerlistings einiger 
Hauptprogrammteile, die wesentlich sind, aber nicht in BASIC geschrieben 
werden können, sind in diesem Anhang enthalten. Auch finden wir hier eine 
Anzahl von Bemerkungen zu den vorgestellten Programmen. Die Bemerkun- 
gen sind in technischer Hinsicht zu speziell, als daß wir sie an anderer Stelle 
hätten bringen können. (Manchmal werden sie auch “Ramblings‘ genannt.) 


Auf keinen Fall soll hier eine gründliche, jeden einzelnen Schritt beschreiben- 
de Untersuchung eines jeden Algorithmus durchgeführt werden. Die REM- 
Anweisungen in jedem Listing skizzieren ausführlich den Programmverlauf. 
Zur Beantwortung spezieller Fragen können diese REM-Anweisungen heran- 
gezogen werden. 


Unterprogramm-Bibliothek 


Aus der Sicht des Programmierers vergrößert ein Unterprogramm die Mög- 
lichkeiten einer gegebenen Programmiersprache. Wird ein Unterprogramm 
entwickelt und fertiggestellt, entspricht es einem „Super-Befehl‘. Einige 
Unterprogramme sind spezielle ‚„Super-Befehle‘‘ für spezielle Anwendungen 
(z.B. das Ausdrucken einer veränderlichen Anzahl von Sternen im Programm 
STERNE, Zeile 8000). Einige andere Unterprogramme besitzen mehrere An- 
wendungsmöglichkeiten (z.B. Eingabe und Wiederholung eines Textes, Ab- 
frage für ESC-Taste oder Überprüfung einer Integer-Zahl innerhalb vorge- 
gebener Grenzen). 

Eine Unterprogramm-Bibliothek ist einfach eine Sammlung solcher Unter- 
programme, die allgemein verwendet werden können. In diesem Buch haben 
wir vier Unterprogramm-Einheiten (Zusammenfassung mehrerer Unterpro- 
gramme) entwickelt. Jede Einheit vergrößert die Leistungsfähigkeit von 
APPLESOFT. 
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EINGABE EINHEIT erweitert die Möglichkeiten der INPUT/GET-Befehle. 
KLANG EINHEIT führt neue Klangmöglichkeiten ein. BILD EINHEIT be- 
einflußt Bilder in LO-RES-Grafik, und NEXTDATA EINHEIT ermöglicht 
die RESTORE-Funktion bei jeder beliebigen Zeilennummer und nicht nur 
bei der ersten DATA-Anweisung. Für die Benutzung dieser Unterprogramme 
greifen Sie bitte auf die Kapitelzusammenfassungen zurück. Über die Unter- 
programme werden wir später einige Zusatzbemerkungen machen. 


Probleme bei der Erstellung einer Unterprogramm-Bibliothek 


Bei der Erstellung einer Unterprogramm-Bibliothek sind zwei Arten von Pro- 
blemen zu lösen. Die erste betrifft die Einschränkungen, die sich durch die 
Verwendung einer bestimmten Programmiersprache ergeben. In APPLESOFT 
gibt es drei davon: Variablen-Konflikte (das Ändern der Werte von Variablen 
im Unterprogramm, die auch im Hauptprogramm benutzt werden), Zeilen- 
nummer-Konflikte (die Zeilennummern im Haupt- und Unterprogramm 
überlappen sich), und DATA-Anweisungen-Konflikte (die Unfähigkeit, 
Daten aus einer bestimmten Programmzeile zu lesen, weil DATA-Anweisun- 
gen in anderen Unterprogrammen zuerst berücksichtigt werden). Andere Pro- 
grammiersprachen, sogar andere BASIC-Versionen, schalten einige dieser 
syntaktischen Probleme aus. Die Einführung ‚lokaler‘ Variablen eliminiert 
das erste Problem. Sprachen ohne Zeilennumerierung vermeiden das zweite, 
und “RESTORE X‘ mit X als Zeilennummer beseitigt das dritte Problem. 

Die zweite Art von Problemen betrifft die Schwierigkeiten beim Gebrauch 
der Bibliothek. Für das Aufrufen von Teilprogrammen muß genau dokumen- 
tiert werden, welche Eintritts- und Austrittsbedingungen erforderlich sind. 
Initialbedingungen müssen ebenfalls angegeben werden (z.B. „Lese ma- 
schinensprachliches Programm X an der Stelle Y vor Benutzung des Unter- 
programms‘‘). Besonders wichtig ist die sorgfältige Anpassung der Unterpro- 
gramme, um unerwünschte Nebeneffekte zu vermeiden (z.B. Ausdruck von 
“AUSSERHALB DES ZULAESSIGEN WERTEBEREICHES“). Damit 
werden die Unterprogramme für viele Bereiche unbrauchbar. Alle diese Pro- 
bleme sind im allgemeinen nicht von einer bestimmten Programmiersprache 


abhängig, sondern hängen von der sorgfältigen Planung des Programmierers 
ab. 


Ausgewählte Lösungen 


Es gibt keine absolut „richtige Antwort‘‘ auf diese Probleme, sondern eine 
Vielzahl von Lösungswegen. Die in diesem Buch vorgestellten Möglichkeiten 
sind eine Auswahl der „besten Lösungen‘‘, die von Programmierern aus ob- 
jektiven und subjektiven Gründen erarbeitet wurden (z.B. leichteres An- 
passen, aus ästhetischen Gründen, persönlichen Vorlieben). 
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Problem Nr. 1: Variablennamen 


Variablennamen, die mit W beginnen, haben wir für KLANG EINHEIT reser- 
viert. Die Anfangsbuchstaben weiterer Variablen sind: X für BILD EINHEIT, 
Y für EINGABE EINHEIT und NEXTDATA EINHEIT und Z für Zeitvaria- 
blen. Im allgemeinen sollte das Hauptprogramm nur Variablennamen be- 
nutzen, die mit A, B, C,..., V beginnen. Diese Lösung erscheint auf den 
ersten Blick willkürlich, da nicht viele der möglichen Variablennamen im Be- 
reich von W bis Z benutzt werden. Eine Alternative ist die Auswahl eines 
kleinen, mehrmals verwendbaren Satzes von Variablen. Die wirklich reser- 
vierten Variablennamen müssen gesondert aufgeführt werden. Dies ist jedocl 
aus verschiedenen Gründen keine „einfache“ bzw. ‚elegante‘ Lösung: E 
ist einfacher sich zu merken, daß die Buchstaben W bis Z nicht benutzt wer 
den dürfen, als sich bestimmte reservierte Namen zu merken. Es ist auch 
schwieriger, ein Überschneiden der einzelnen Unterprogramme in Bezug auf 
die Variablen zu vermeiden. Auch ist das Verbinden der einzelnen Einheiten 
schwieriger, wenn solche willkürlichen Variablennamen benutzt werden. 
BASIC-Programme sind immer schwierig zu lesen. Daher werden die Variablen- 
namen so ausgewählt, daß sie, wenn möglich, auch als Gedächtnishilfe dienen. 
So bedeutet z.B. XH die horizontale Position in BILD EINHEIT und YH die 
größte Integer-Zahl innerhalb eines Intervalls im Programm EINGABE EIN- 
HEIT. YM kann sowohl Minimum als auch Maximum bedeuten. Unsere vor- 
geschlagene Lösung erzeugt also eine einfachere und ‚schönere‘ Bezeich- 
nungsweise. 

Im folgenden geben wir noch einige zusätzliche Regeln für die Wahl von 
Variablennamen an. Vermeiden Sie die Buchstaben I und O — sie sind zu 
leicht mit 1 und ® zu verwechseln. Eine weitere Vereinbarung ist die Be- 
nutzung von Integer-Variablen für die Ausgabe von Code- oder Steuerzahlen 
(Z%=-1 ESC; = ® ungültige Integer-Zahl; = 1 gültige Integer-Zahl). Dies gilt 
nicht für die Ausgabe von Zahlenwerten. (Z = Zahlenwert, wenn Integer-Zahl 
gültig ist). Auch sollten Integer-Zahlen für Kennzeichnungen (flags) benutzt 
werden (WR%>0®, wenn KLANG EINHEIT bereits eingelesen). Wenn es 
möglich ist, sollten zum Abspeichern von Werten möglichst Integer-Felder 
anstatt Real-Felder benutzt werden (z.B. L%() und R% ( ) in MATCH). Be- 
nutzen Sie INT( ) anstatt einer Integer-Variablen. Dies ist im Programm- 
listing leichter zu verfolgen. 

Nicht betrachtet haben wir bisher die Beschleunigung des Programmablaufs 
durch sorgfältiges Anordnen der Variablen (siehe auch APPLESOFT II Be- 
nutzer-Handbuch, Anhang E). Es gibt keinen einfachen Weg, diese Möglich- 
keit in eine Unterprogramm-Bibliothek mit aufzunehmen, aber vielleicht ver- 
suchen fortgeschrittene Programmierer, die Schwierigkeit zu beheben? Wir 
halten einen klaren Programmaufbau für wichtiger und haben uns entschlos- 
sen, dieses Problem zu ignorieren. Mit Ausnahme von BILD EINHEIT sind 
alle Unterprogramme schnell genug. 
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Problem Nr. 2: Zeilennumerierung 


Die Zeilen 10xxx und 11xxx sind für EINGABE EINHEIT reserviert, die 
Zeilen 13xxx für KLANG EINHEIT, 15xxx für BILD EINHEIT und 19xxX 
für NEXTDATA EINHEIT. Außerdem sind die Zeilen 20100 bis 49999 für 
die Bilderbibliothek von BILD EINHEIT vorgesehen. 


Die Lösung kann mit der Lösung für die Variablennamen verglichen werden. 

Eine Alternative wäre, das RENUMBER-Programm nicht nur zum Verbinden 

von Programmen, sondern auch zur Umnumerierung zu benutzen. Die Unter- 

programme könnten einfach neu numeriert werden und damit im Listing 

dort plaziert werden, wo gerade Platz ist. Der größte Nachteil dieser Lösung 

ist das Variieren der Eintrittspunkte von Programm zu Programm; variable 

Eintrittspunkte sind wesentlich schwieriger zu handhaben als feste. Außer- 

dem dürften doch genügend Programmzeilen für das Hauptprogramm übrig 

sein. Ein übersichtlich aufgebautes Programm kann z.B. so aussehen: 

— Unterprogramm-Einheiten beginnen ab Zeile 10000 

— größere logisch zusammenhängende Teile beginnen mit 1000, 2000, ... 
usw. 

— kleinere Teile beginnen mit 100, 200, ... usw. 


Häufiges Umnumerieren macht es schwerer, dem Programmverlauf zu folgen 
(und der Aufbau wird unübersichtlich und häßlich). 

GOTO- oder GOSUB-Befehle sollten nie zu Programmzeilen führen, die nur 
REM-Anweisungen enthalten, denn in manchen Fällen werden sie vielleicht 
gelöscht oder beim Eintippen ausgelassen. Ein Eintritt sollte nur am Anfang 
eines Unterprogramms erfolgen. Der trickreiche Eintritt in die Mitte eines 
Unterprogramms ist riskant, und das Programmlisting ist später schwierig 
abzuändern. Dies kann durch Neustrukturierung der lokalen Variablen und 
der Eingangsvariablen des Unterprogramms vermieden werden. 

Im Bestreben, gute Lesbarkeit der Listings zu erreichen, wollten wir die Aus- 
wahl der Variablennamen, die Zeilennumerierung und die Benutzung der 
REM-Anweisungen in jedem Programm übereinstimmend anwenden. Deshalb 
sehen sich die Programmlistings alle etwas ähnlich. Auch das Empfinden des 
Programmierers für einen „‚schönen‘‘ Programmaufbau steigerte sich während 
dieses Prozesses, mit dem Erfolg, daß die späteren Programme stärker über- 
einstimmen als die ersten. Es ist sehr schwierig, schöne und klar strukturierte 


Listings in BASIC zu schreiben. Unsere Programme stellen den Versuch dar, 
übersichtliche Listings zu entwickeln. 


Ebenso wie das sorgfältige Anordnen der Variablen, kann auch das überlegte 
Anordnen der Zeilennummern die Ausführung eines Programms beschleuni- 
gen (siehe wieder APPLESOFT II Programmieranleitung, Anhang E). Aus 
den gleichen Gründen, wie bereits erwähnt, ignorieren wir dieses Problem. 


Problem Nr. 3: DATA-Anweisungen 


Die Lösung dieses Problems erfolgt direkt und ist schwierig. Ein “RESTORE 
X‘“-Befehl (X kann eine beliebige Zeilennummer sein) wurde in NEXTDATA 
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EINHEIT zusätzlich aufgenommen. Viele BASIC-Varianten besitzen diesen 
Befehl bereits, aber unglücklicherweise nicht APPLESOFT. 


Die Bilderbibliothek in BILD EINHEIT benötigt keinen großen Aufwand für 
die Verwaltung der Bildadressen, denn jedes Bild beginnt mit einer Zeile 
20000 + 100 * ZAHL. Sie kann daher einfach mit RESTORE X ergänzt 
werden. 


Das Programm KLANG EINHEIT liest ein maschinensprachliches Unterpro- 
gramm durch die Verwendung von POKE-Befehlen und DATA-Anweisungen 
ein, statt einzelne POKE-Befehle zu verwenden. (Dagegen wird in NEXT- 
DATA EINHEIT das Assemblerlisting nur mit POKE-Befehlen gelesen). Hier 
ist ein Assemblerlisting von RESTORE X: 


& * 
7 * AFPLESOFT ANGEFASST 
8 * 
7 DATPTR EQU $7D ;MEMORY FOS FUER 
NAECHSTES EINLESEN 
10 LINNUM EOU &50 ;ZEILENNUMMER FUER "FNDLIN” 
11 LOWPTR EQU $97B ;ADRESSE VON ’FNDLIN’ 
12 FNDLIN EQ@U 3D5s1A ;SUCHE FUER ZEILENNUMMER 
13 
14 
15 * RESTOREX - NAECHSTES EINLESEN VON ZEILE X 
16 * 
7. LINEX DS Z ;ZEILENNUMMER 
18 x 
AD 00 05 19 RESTOREX LDA LINEX:SETZE ZEILENNUMMER 
95 50 20 STA ZEILENNUM 


AD 01 03 
85 51 


20 1A DS 


LDA LINEX+1 
STA ZEILENNUM+1 
JSR FNDLIN ;SUCHE 





a5 96 LDA LOWPTR ; ERNEUERE ZEIGER 
FUER NAECHSTES EINLESEN 
18 25 CLC 
67 04 26 ADC #4 ; AKTUELLE DATEN 
857 27 STA DATFTR 
AS 9C 28 LDA LOUFTR+1 
67 00 297 ADC #0 
3 7E 30 sTA DATPTR+1 
so 31 RTS 


Problem Nr. 4: Beschreibung des Aufrufs von Programmteilen 

Die Kapitelzusammenfassungen beschreiben alle aufrufbaren Programmteile 
zu jedem Unterprogramm. Zusätzlich stehen in den Listings REM-Anweisun- 
gen vor jedem Eintrittspunkt. Wenn REM-Anweisungen aus Platzgründen ge- 
löscht werden müssen, sollten die REM’s vor den Eintrittspunkten als letzte 
beseitigt werden. 





Problem Nr. 5: Erforderliche Initialisierungen 


Alle Programme initialisieren sich selbst. Sie arbeiten deshalb auch, wenn im 
Hauptprogramm ihre Initialisierung vergessen wird. Dies ist ein wichtiges 
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Ziel für den Programmaufbau, denn auch unerfahrene Programmierer sollen 
unsere Unterprogramme verwenden können. 


Unsere Lösung ist ein seltenes Beispiel eines APPLESOFT-Tricks (d.h. dieser 
Trick wird nicht notwendigerweise in anderen BASIC-Varianten funktionie- 
ren). Die Lösung beruht auf der Tatsache, daß mit dem Ausführen des RUN- 
Befehls alle arithmetischen Variablen Null gesetzt und alle Textvariablen als 
leer angenommen werden. Wann immer eine Initialisierung notwendig ist, 
wird ein Steuerzeichen abgefragt (z.B. in KLANG EINHEIT, Zeile 13000 
bedeutet WR% = O nicht initialisiertt und WR% > 0 bereits initialisiert). In 
EINGABE EINHEIT wird die Platzhalter-Variable YF$ in Zeile 10000 initiali- 
siert. Gleiches geschieht mit XS, dem Abstand zweier Bilder, in den Zeilen 
15310 und 15410 im Unterprogramm BILD EINHEIT. Das automatische 
Festsetzen von DIM XC (10) in Zeile 15020 in BILD EINHEIT entspricht 


gerade noch den Ansichten des Programmierers für einen guten Program- 
mierstil. 


Problem Nr. 6: Gute Anpassung der Unterprogramme, Vermeiden von 
unerwünschten Nebeneffekten 





Wie bereits erwähnt, ist dieses Problem stark von den persönlichen Ansichten 
des Programmierers abhängig. Um keine gegensätzlichen Meinungen darzu- 
stellen, wollen wir auf dieses Problem nicht weiter eingehen. 


Ausgewählte Bemerkungen über die Programme 


In Kapitel 1 werden zwei Programme in Maschinensprache benutzt. Das eine 
produziert Tonfrequenzen von festgelegter Dauer (KLANG), das andere 
produziert die Tonfrequenzen nur so lange, bis die nächste Taste gedrückt 
wird (ORGEL). Die Assemblerlistings sind im folgenden dargestellt: 


33 x 
34 * APFLESOFT ANGEFASST 
35 x 
36 CLICK EOU $COSQ ; LAUTSPR SCHALT 
37 x 
38 + 
39 * KLANG -ERZEUGE KLANG MIT FESTGELESTER TONDAUER 
40 x 
4 % EINGANG : TONDAUER-L,H GESETZT 
42 x 1: TONH SETZEN IN "TONHTBL’ (1/40) 
43 x 2: TONH SETZEN 
44 x 
45 TONDAUER DS 2 
45 TONHOEHE DS 1 
47 x 
a8 % EINGANG 1: BENUTZE "TONH’ MIT AKTUELLEM 

TONHOEHEN-WERT 
320: AC IF 03 49 KLANGI LDY TONH 

0323: B9 49 05 5 LDA TONHTBL-1.Y 

0326: S2AF CZ 51 STA  TONH 
52 * 
53 * EINGANG 2: "TONH” SETZEN 
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0329: AO 00 54 KLANGZ LDY #0 ; INITIALISIERE 24-BIT 














" ZAEHLER” 
O32B: EE 1D 05 55 INC TONDAUER 
OSZE: EE IE 035 56 INC TONDAUER+1 
37 x 
AE IF 03 58 NXTCLICK LDX TONH ;RESTORE TONH ZAEHLEN 
AD 30 Co 57 LDA CLICK ; "CLICK" LAUTSFR 
s0 + 
0337: 88 si COUNTDOWN DEY :24-BIT-ZAEHLER 
(Y,. TONDAUER-L,HI 
DO OA &2 BNE NICHT ERLEDIGT 
CE 1D 053 &3 DEC TONDAUER 
Do 05 64 EBENE NICHT ERLEDIGT 
CE IE 05 b) DEC TONDAUER+1 
FO 05 65 BEQ ERLEDIGT 
67 # 
0344: CA 68 N. ERL. DEX "UEBERPRUEFE OB NAECHSTES CLICK” 
0345: FO EA 69 BEQ NXTCLICK 
0347: DO EE 70 BNE COUNTDOWN 
7ı x 
0349: 50 72 ERLEDIGT RTS 
73 x 
74 * TONHTBL - TONHOEKEN WERTE 
FEIRZ ER TONHTBL HEX FFF2ZE4D7CROOBSAR :1/8 
Al 98 98F 7% HEX A1IS9F977F79716B ;7/1& 
65 SF SA 77 HEX sSSFSASSSO4B4733 ;17/24 
SF SB 38 7 HEX SFIBISSSSSZZFACZA 25/32 
28 25 253 79 HEX 28252I21201E1C1A 33/40 
8 + 
82 * AFFLESOFT ANGEFASST 
83 x N 
s4 TASTE EQU 3c000 D| 
85 A 
86 % | 
87 %* ORGEL - ERZEUGE TONHODEHE BIS NEUE TSSTE ) 
GEDRUECKT WIRD 
88 4 
37 * EINGANG: TONH SETZE IN "TONHTBL'" 11/40) 
90 x 
AC IF ı 21 ORGEL LDY TONH 
BF 49 92 LDA TONHTEL-1,Y 
8D iF 03 9% STA TONH 
AD 00 CO 94 URGELICK LDA TASTE ;UEBERFRUEFE TASTATUR 
30 CE 95 BMI  ORGERL ;-) TASTE GEDRUECKT 
BECIRIOS OR LDX TONH ; RESTORE TONHOEHEN ZAEHLER 
AD SO Ca 97 LDA CLICK ;’CLICK” LAUTSPR 
73 x 
77 4 DIE NAECHSTEN BEIDEN ANWEISUNGEN 
WERDEN GEMACHT, 
100 x UM DIE INNERE SCHLEIFE ZEITLICH 
101 * DER VORHERIGEN FROZEDUR "KLANG” 
ANZUPASSEN 
102 4 
103 #4 DIES FOLGT AUS DEN TONH-WERTEN, 
105 x DIE IN JEDER FROZEDUR AEHNLICHE 
TONHBEHEN BEWIRKEN 
105 x 
GI86: 588 106 ORGCOUNT DEY 
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0387: DO 00 107 BNE ORGNOF 


108 DORGNOIP EQU * ; ENDE VON ’VERLUST’-ZEIT 
0389: CA 109 DEX ; VEBERPRUEFE OR NAECHSTES CLICK 
O38R: FO ER 110 BEQ ORGELICH 
össt: DO F8 111 BNE ORGCOUNT 

112 + 
OSBE: 60 113 ORGERL RTS 


Beachten Sie die zwei Eingänge von KLANG. In KLANGI wird für die Ton- 
höhe (TONH) ein Wert in TONHTBL (Tonhöhentabelle) gesucht. In KLANG2 
wird für TONH der aktuelle Wert benutzt. Die Töne entstehen durch das 
Ansteuern des Lautsprechers mit einer internen Frequenz, die durch die 
Werte in TONH bestimmt wird. Der Zusammenhang der internen Frequenz 
mit dem entstehenden Klang hängt von der zeitlichen Abstimmung des Ma- 
schinenprogramms ab. Beachten Sie, daß in TONHTBL Raum für vierzig 
interne Frequenzen ist. Der 16-bit-Wert in TONDAUER bestimmt die Länge 
des Tones. 

Das Programm ORGEL benutzt die gleichen Frequenzen aus TONHTBL und 
verbraucht zusätzliche Rechenzeit in einer internen Schleife. Damit wird die 
zeitliche Anpassung zu dem KLANG-Programm vorgenommen. Im Gegensatz 
zu TONDAUER in KLANG fährt das ORGEL-Programm so lange mit dem 
Produzieren des Tones fort, bis eine neue Taste gedrückt wird. Eine der 
Grenzen der APPLESOFT-Hardware besteht darin, daß wir nicht feststellen 
können, ob eine gedrückte Taste wieder gelöst wird. Deshalb muß das 
ORGEL-Programm auf einen neuen Tastendruck warten, um enden zu kön- 
nen. 


Im LO-RES-Kapitel wird die Tastatur durch das Programm EINGABE 
LAENGE in verschiedene Bereiche aufgeteilt. Jedem Bereich entspricht ein 
anderer interner Parameter. Diese Technik kann auch auf eigene Programme 
des Lesers angewendet werden und erfordert lediglich eine einfache Erweite- 
rung von EINGABE EINHEIT. 

Die Vorteile einer Unterprogramm-Bibliothek werden an dem Beispiel von 
SPIRALE KLANG deutlich. Das Programm SPIRALE2 benötigt nur drei zu- 
sätzliche BASIC-Befehle, um SPIRALE KLANG hervorzubringen. (Auch die 
LO-RES-Titelbilder in den letzten zwei Kapiteln wurden mit sehr geringem 
Programmaufwand hergestellt). 

Das Programm BILD EINHEIT wurde bereits in dem entsprechenden Kapitel 
ausführlich diskutiert. Zu erwähnen bleibt noch, daß die Ausführung durch 
die Zuhilfenahme von Maschinensprache erheblich beschleunigt werden 
kann. Doch dies zu behandeln entspricht nicht der Aufgabe dieses Buches. 
Maschinensprache wurde nur dann benutzt, wenn eine Lösung in BASIC 
nicht möglich war. Die Programmlänge und die Einlesezeit von Diskette kön- 
nen verkürzt werden, indem man nur die benötigten Bilder ins Listing auf- 
nimmt. 

Wir sind froh, daß für die Hi-RES-Grafik kommerzielle Software-Pakete er- 
hältlich sind. Die APPLE-Hardware kann vieles leisten, aber mit APPLE- 
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SOFT verhält sich das anders. Schauen Sie in die APPLESOFT-Programmier- 
anleitung für den Fall, daß numerische Variablen, Felder oder das Programm 
selbst die für die HI-RES-Grafik vorgesehenen Pufferspeicher einnehmen. Im 
Anhang L finden Sie die Zeiger (Pointer) der Nullseite. Mit diesen kann nach- 
geprüft werden, ob dieser Fall eingetreten ist. 

In EINGABE EINHEIT gibt es eine Sperrvorrichtung für den Gebrauch der 
ESC-Taste, denn diese spezielle Taste kann dazu benutzt werden, um aus 
dem gerade laufenden Spiel auszusteigen. Um dies zu erreichen, müssen wir 
jedoch ESC RETURN drücken. Die ‘ESC‘-Schrift wird außerdem auf dem 
Bildschirm wiederholt. Damit wird das Problem des versehentlichen Betäti- 
gens von ESC beseitigt, da die ESC-Funktion nicht von Beginn an aktiviert 
ist. 

Der ONERRGOTO-Befehl ist eigentlich nutzlos, außer beim Verbessern von 
Programmen. Die Fehler 0 bis 224 sind logische Fehler, die durch Umstruk- 
turierung des Programms beseitigt werden können. Da in EINGABE EIN- 
HEIT der INPUT-Befehl nicht benutzt wird, ist die Fehlermeldung 254 nicht 
möglich. Die Fehlermeldung 255 mit CTRL-C ist eine hübsche Idee, wird 
aber nicht richtig eingesetzt. Die Anwendung von RESUME bewirkt die 
Fortsetzung des Programms mit dem gerade ausgeführten Befehl (d.h. RE- 
SUME und CTRL-C bewirken das erneute Ausführen des letzten Befehls. 
anstatt mit dem nächsten Befehl fortzufahren). Leider wird CTRL-C nur be 
achtet, wenn das Programm eine Eingabe erwartet. Wird die Taste ander 
weitig betätigt, kann sich dies sehr schlimm auswirken. Vielleicht kann die 
Fehlermeldung 255 zum Ausdruck einer Abschiedsmeldung „Auf Wieder- 
sehen‘‘ vor dem Absturz des Programms benutzt werden. Wenn eine hervor- 
ragende Lösung entdeckt wird, hat der Benutzer auch noch die RESET-Taste 
(bzw. CTRL-RESET) zur Verfügung. 

Das Programm STORY ist ein Beispiel für ein einfaches Spiel mit einem 
farbigen Titelbild in LO-RES, einer Fehlerabfang-Prozedur für den Abbruch 
eines Wortes am Zeilenende und einem Storyaufbau mit Fragen und DATA- 
Anweisungen. 

In BLOCKOUT versuchen wir, einige Begrenzungen in der APPLESOFT 
Textdarstellung zu überwinden. Die SCRN-Funktion, die in Kapitel 2 nicht 
erörtert wurde, wird in Zeile 8350 benutzt und garantiert das Wechseln der 
Farbe eines Blocks. 

Die beiden Programme MATCH und KONZENTRATION arbeiten mit der 
Veränderung von Datenstrukturen und zeigen einige beeindruckende visuelle 
Effekte. Beachten Sie in der BILDER-Bibliothek die auf den Kopf gestellten 
Buchstaben A und T für das Titelbild von MATCH. Versuchen Sie als eine 
weitere Herausforderung KONZENTRATION mit einem Schwarz-Weiß-Fern- 
seher zu spielen und die kleinen Veränderungen im Kartenbild zu erkennen. 
STERNE ist ein anderes altbekanntes und beliebtes Spiel, das durch die Ver- 
wendung von LO-RES-Grafik und von Tönen viel schöner wurde. Der Effekt 
des wachsenden Balkens entstand rein zufällig. 





SIMON erinnert an manche Kombinationsspiele, die über eine Million Mög- 
lichkeiten besitzen. Das Programm verwendet möglichst wenig maschinen- 
sprachliche Aufrufe und ESC-Folgen in PRINT-Befehlen, denn sie beein- 
trächtigen die Lesbarkeit des Programms. Eine bessere Lösung ist das Er- 
weitern von Computersprachen durch zusätzliche Kommandos (z.B. HOME 
anstatt CALL-936). Deshalb ziehen wir es vor, mit PRINT einige Leerzeichen 
auszudrucken, anstatt eine maschinensprachliche Prozedur aufzurufen, um 
das Ende einer Zeile zu löschen. 
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Anhang C 
Hinweise zu den Programmlistings 





Die folgenden Hinweise sind für Leser gedacht, die alle Programme dieses 
Büches per Hand eintippen wollen. Vielleicht helfen sie etwas beim Lesen 
und Eingeben der Listings. 

1. Die Unterprogramm-Einheiten sollten ohne die anderen Programmteile 
sofort auf Diskette gespeichert werden. Auf diese Art können die Unter- 
programme jederzeit mit eigenen Programmen verbunden werden, und das 
Unterprogramm muß nur einmal eingetippt werden. 

2. Damit unsere Unterprogramme sich nicht mit den Programmen des Lesers 
überschneiden, haben wir hohe Zeilennummern benutzt. Eigene Listings 
sollten deshalb nicht über die Zeile 10000 hinausgehen, können aber ab 
Zeile 50000 fortgesetzt werden. 

. Variablennamen, die mit W, X, Y und Z beginnen, sind möglichst zu ver- 
meiden. Sie werden bereits in unseren Unterprogrammen benutzt. 

4. Die folgenden Hinweise sollen dazu dienen, eventuelle Unklarheiten beim 

Lesen der Listings zu beseitigen: 

— Der Buchstabe I wird nicht als Variablenname benutzt. Auch als Teil 
eines Variablennamens, wie z.B. in AI oder ZI, haben wir ihn nicht ver- 
wendet. Der Buchstabe I kann sehr leicht mit der Zahl 1 verwechselt 
werden. 

— Um Verwechslungen mit der Zahl ® zu vermeiden, wird auch der Buch- 4 
stabe O nie als Variablenname oder als Teil davon benutzt. Die Variable | 
AO gibt es also nicht. 

— In unseren Listings gibt es Variablennamen wie Al, BO oder C9. 

5. Die Zeilennummern sowie leere Zeilen und REM-Zeilen trennen die ein- 
zelnen Programmteile und Erläuterungen voneinander ab. 

6. Wenn der zulässige Speicherbereich überschritten wird, können die REM- 
Anweisungen gelöscht werden. Für spätere Änderungen oder Fragen ist es 
jedoch besser, die REM’s stehen zu lassen. Löschen Sie zuerst die ein- 


ws 
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führenden REM-Befehle und später die REM-Anweisungen, die zusam- 
men mit anderen Befehlen in einer Zeile stehen. Diese REM’s erläutern 
direkt die Auswirkung des dazugehörigen BASIC-Befehls. Die einführen- 
den REM’s beschreiben den Zugang zu den Unterprogrammen oder wie 
Programmänderungen durchzuführen sind. 

7. Weiterhin können bei Überschreiten des zulässigen Speicherbereiches nicht 
benutzte Teile von EINGABE EINHEIT und BILD EINHEIT gelöscht 
werden. Zum Beispiel benutzt das Spiel STERNE nur die Buchstaben S, T, 
E, R und N. Alle anderen Bilder in BILD EINHEIT können gelöscht 
werden. 
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Anhang D 
Das Entwickeln von Programmen 





Das Schlagwort „benutzerfreundliche Software‘ wird heutzutage oft ge- 
braucht. In dem Maße, in dem die Zahl der käuflich erwerblichen Computer- 
programme zunimmt, wählen die Kunden kritischer aus dem bestehenden 
Angebot aus. Sie suchen nicht nur nach funktionsfähigen Programmen, son- 
dern wollen auch leicht anwendbare Programme erwerben. Sie sind nicht zu- 
frieden mit Programmen, bei denen der Text aus dem Bildschirmbereich ver- 
schwindet, erforderliche Antworten umständlich einzugeben oder Fragestel- 
lungen unklar sind. 

Im Verlaufe dieses Buches haben wir viele Vorschläge gemacht und Verein- 
barungen getroffen, die benutzerfreundlich sind. Die Eingabe-Prozeduren mit 
Fehlerbehandlungsschleifen und hilfreichen Fehlermeldungen sind Beispiele 
benutzerfreundlicher Programmierung. Die ESC-Vereinbarung zum Verlassen 
eines Programmes ist ein weiteres Beispiel. 

Dieser Anhang faßt noch einmal alle bisher geäußerten Vorschläge zusammen 
und fügt weitere hinzu. Mit der folgenden Prüfliste kann der Leser sowohl 
seine eigenen, als auch kommerzielle Programme auf ihre Benutzerfreund- 
lichkeit überprüfen. 


Wünschenswerte Merkmale in Lehr- und Lernprogrammen 


— Einführung und Information sind auf gleicher Ebene wie die Durchführung 
des Programms 

— Verzweigungen, um Informationen übergehen zu können 

— Verzweigungen für Anfänger bzw. Fortgeschrittene 

— Schwierigkeit der Aufgabe ist den erforderlichen Lesefähigkeiten ange- 
paßt. 

— Informationen zum Beenden oder Unterbrechen werden deutlich darge- 
stellt. 

— Geordnete, übersichtliche Bildgestaltung 

Deutliche Angaben der einzelnen Größen 

Konsistente Eingabeform (entweder INPUT oder GET) 

Zahl der erlaubten Versuche durch Benutzer regelbar 


123 





— Dauer der Informationsdarstellung durch Benutzer regelbar 

— Schwierigkeitsgrad durch Benutzer regelbar 

— Reaktionen auf eine richtige Antwort sind stärker als auf eine falsche Ant- 
wort 

— Hilfreiche und keine negativen Reaktionen 

— Leicht zugängliche Hilfsinformationen 

— Fehlerbehandlungsschleifen und hilfreiche Hinweise 

— Häufiges Löschen des Bildschirms 

— Konsistenter Gebrauch von Informations- und Programmabbruch-Verein- 
barungen 


Folgendes ist zu vermeiden: 


— Abbrechen von Wörtern am Ende der Zeile 

— Lesen und Ausdrucken am unteren Ende des Bildschirms 

— Ständig wechselndes Bild 

— Unpassendes Setzen von Leerzeichen 

— Text, der aus dem Bildschirmbereich verschwindet 

— Zu viele blinkende Textzeilen 

— Zu ausgiebiger Gebrauch von Klangeffekten, speziell sich wiederholender 
Melodien 


Auch folgende Fragestellungen sind zu beachten: 


— Eignet sich das Problem für den Einsatz eines Computers oder läßt es sich 
auf andere Art besser lösen? 

— Ist das zur Durchführung eines Spiels erforderliche Denken mit einer För- 
derung der Lernerfahrung verbunden? 

— Ist die Benutzung des Programms einfach genug? Es ist nicht der Zweck 
eines Spiels, daß der Benutzer mühsam lernt, wie das Spiel durchgeführt 
wird. 
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